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ABSTRACT 


Currently,  all  large  ocean-going,  mechanically  linked 
tug-barge  units  are  being  operated  in  the  integral  or  ship 
like  mode  where  the  tug  and  barge  remain  together  at  all 
times.  This  method  of  operation  does  not  take  advantage  of 
the  inherent  flexibility  available  to  tug-barge  units--the 
ability  to  separate  the  propulsive  unit  (tug)  from  the  cargo 
unit  (barge).  This  separability  can  be  used  to  operate  the 
tugs  and  barges  in  a  drop-and-swap  mode  where  the  tug  drops 
off  a  loaded  barge  at  a  port  and  then  swaps  it  for  one  that 
has  completed  its  cargo  operations.  This  method  substantially 
increases  tug  utilization  since  the  tug  is  not  required  to 
await  cargo  operations.  However,  this  increased  tug  utiliza¬ 
tion  is  achieved  at  the  expense  of  the  extra  barge  units  which 
remain  in  port  for  cargo  operations.  The  question  is  whether 
in  drop-and-swap  operation  the  increased  tug  utilization 
outweighs  the  capital  costs  of  the  additional  barges.  To  help 
answer  this  question,  a  computer  model  is  developed  to  compare 
the  total  capital  and  operating  cost  of  providing  transport 
capacity  for  simple  port  pair  trades  with  tugs  and  barges 
operated  in  the  integral  and  drop-and-swap  mode.  From  the 
model's  output  it  can  be  determined  which  mode  is  more  econom¬ 
ical  for  a  given  trade. 
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The  model  uses  exhaustive  enumeration  to  select  among 
all  feasible  alternatives  the  number  of  tugs  and  barges,  the 
barge  size  and  form,  and  the  tug-barge  system  speed  that 

provides  the  desired  transport  capacity  for  a  given  port  pair 

trade  at  the  lowest  required  freight  rate.  The  required 

freight  rate  calculation  takes  in  account  the  tug,  barge, 

storage  tank,  and  terminal  facility  annual  operating  and 

annualized  capital  costs.  Most  of  the  capital  and  operating 
cost  elements  are  obtained  from  the  literature.  However, 
practically  no  data  are  available  for  two  of  the  most  impor¬ 
tant  cost  factors,  barge  capital  construction  cost  and 
tug-barge  fuel  expense.  Therefore,  two  computer  subprograms, 
a  barge  design  model  and  a  tug-barge  powering  model,  are 

developed  to  estimate  these  costs. 

The  barge  design  model  subprogram  uses  the  ABS  offshore 
barge  rules  to  determine  the  midship  scantling  configuration 
of  single-skin  tank  barges  that  results  in  the  minimum  hull 

steel  weight  as  a  function  of  barge  size  and  form.  The  hull 

weight  estimate  is  used  to  predict  barge  cost.  Tabular  and 
graphical  output  from  the  model  is  presented  for  barges  of 
various  size  and  form.  In  addition,  regression  equations  for 
the  model  output  are  provided. 

The  tug-barge  powering  subprogram  uses  full-bodied, 
bulbous-bowless,  single-screw  tank  ship  propulsion  and  resis¬ 
tance  data  as  an  approximation  to  tug-barge  hydrodynamic 
performance.  These  data  are  used  in  conjunction  with  a  pro¬ 
peller  design  program  to  determine  the  horsepower  required  to 
propel  the  tug-barge  unit  of  a  given  size  and  form  at  a  given 
speed.  From  the  horsepower  requirements  the  fuel  expenses  can 
be  predicted.  Since  both  subprograms  take  in  account  barge 
size  and  form,  the  model  determines  the  most  economical  form 
for  barges  of  a  given  size  and  speed  with  respect  to  capital 
construction  and  fuel  costs. 

The  output  of  the  model  is  presented  for  five  base  cases 
and  six  sensitivity  cases.  From  these  outputs,  it  is  deter¬ 
mined  that  the  following  trades  can  be  more  economically 
operated  in  the  drop-and-swap  mode  than  the  integral  mode: 

1)  trades  with  large  annual  cargo  flow  requirements  compared 
to  the  ton-mile  capacity  of  the  maximum  allowed  size  barge, 

2)  trades  with  slow  loading/discharging  rates  that  result  in 
voyages  with  long  port  times,  and  3)  trades  with  substantial 
terminal  storage  costs. 

Complete  documentation  for  the  economic  model  and  for 
the  barge  design  and  power  subprograms  is  provided.  The  docu¬ 
mentation  includes  program  listings,  flowcharts,  and 
dictionaries  of  program  variables. 


Name  and  Title  of  Thesis  Supervisor:  E.  G.  Frankel,  Professor 
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CHAPTER  1 


INTRODUCTION 

1 . 1  General  Remarks 

All  of  the  push-towed  ocean  going  tug  barge  (OGTB) 
systems  in  current  use  operate  in  a  ship-like  integral  mode 
where  the  tug  and  barge  always  remain  together.  This  method 
of  operation  does  not  make  use  of  the  only  long  term  advantage 
that  these  vessels  have  over  ships,  their  ability  to  separate 
the  tug  propulsive  unit  from  the  cargo  barge  unit.  It  is  in 
this  drop-and-swap  mode  of  operation  that  OGTBs  should 
flourish.  Therefore,  it  is  the  purpose  of  this  thesis  to  in¬ 
vestigate  for  which  port  pair  trades  that  this  feature  of 
separability  can  be  economically  advantageous.  This  investi¬ 
gation  is  done  through  the  use  of  a  parametric  optimization 
computer  model  that  compares  the  cost  of  operating  a  port  pair 
trade  with  tugs  and  barges  in  either  mode. 

The  details  of  this  model  and  the  associated  barge  de¬ 
sign  and  tug-barge  powering  subprograms  are  presented  in  the 
next  three  chapters.  The  reader  who  is  not  interested  in  the 
detailed  assumptions  used  in  the  model  may  proceed  to  model 
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results  presented  in  Chapter  5  after  having  read  the  remainder 
of  this  introductory  chapter. 


1 . 2  Background  Material  on  Ocean  Going  Tug-Barge  Systems 
The  idea  of  a  towboat  or  tugboat  pushing  a  barge  or 
integrated  group  of  barges  is  not  a  new  one.  For  several 
decades,  the  river  towboat  operators  have  been  taking  advan¬ 
tage  of  the  better  control  and  lower  drag  resistance  provided 
by  push- towing  over  pull-towing  a  barge  on  a  hawser.  In  the 
sixties  coastwise  tug  and  barge  operators,  seeing  the  obvious 
advantages  of  push  towing,  began  constructing  their  new  large 
barges  (some  over  10,000  DWT)  with  stern  notches  for  the  tug 
to  push  in.  At  first,  the  notches  in  these  first  generation 
ocean-going  tug-barges  (OGTBs)  were  rather  shallow  so  that 
push-tow  operations  were  restricted  to  the  calm  waters  of 
bays,  harbors,  and  gentle  seas.  Later,  these  notches  became 
deeper  and  sophisticated  cable  or  chain  linking  and  chafing 
gear  were  used  so  that  push-tow  operation  of  these  second  gen¬ 
eration  OGTBs  could  be  extended  to  all  but  severe  seas.  But, 
it  was  not  until  the  early  seventies  (1)  that  the  technology 

tl)  In  the  early  fifties  George  G.  Sharp ,  Inc .,  'd id  design  the 
Car-Port/GI ,  a  tug-barge  with  a  rigid  wedge  type  linkage  which 
was  the  prototype  of  the  Breit/Ingram  design  now  in  use.  This 
rather  small  system  (less  than  5000  DWT)  ran  into  serious  dif¬ 
ficulty  with  USCG  manning  authorities  which  eventually 
demanded  that  the  tug  be  manned  the  same  as  a  ship.  This 
forced  the  system  into  foreign-flag  service.  This  tug  and 
barge  as  well  as  a  follow  on  tug  and  two  barges  operated  suc¬ 
cessfully  in  a  drop  and  swap  mode  of  operation  for  many  years. 
It  may  have  been  this  excessive  manning  requirement  that 
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was  developed  for  the  high  horsepower  diesel  engines  that 
could  drive  large  barges  at  moderate  speeds,  and  for  the  reli¬ 
able  linkages  that  would  allow  the  tug  and  barge  to  remain 
linked  together  in  all  types  of  weather  and  seas. 

Three  types  of  these  third  generation  OGTBs  are 
currently  in  use  in  U.  S.  domestic  and  foreign  trades.  They 
are  as  follows: 

1.  Breit/Ingrara .  In  this  system  the  tug  is  wedged  tightly 
into  the  barge  notch  walls  and  floor  so  that  the  linkage  is 
rigid.  See  Figure  1.1  for  a  sketch  and  Hukill  (197*0  for  spe¬ 
cific  details  of  this  system. 

2.  Catug.  In  this  system  a  tongue-like  extension  from  the 
barge  stern  is  wedged  tightly  between  the  catamaran  hulls  and 
connecting  platform  of  the  tug  so  that  the  linkage  is  rigid. 
See  Figure  1.2  for  a  sketch  and  Seabulk  (1976)  for  specific 
details  of  this  system. 

3.  Artubar.  In  this  system  two  large  transverse  pins  (one 
port  and  starboard)  extend  from  the  tug's  bow  and  fit  into 
sockets  located  in  wing  wall  skegs  that  make  up  the  barge 
stern  notch.  See  Figure  1.3  for  a  sketch  and  Fletcher  (197*0 
for  specific  details  of  this  system. 


del ayed the use of  third  generation  OGTBs  until they  became 
large  enough  so  that  ship  owners,  who  were  not  concerned  about 
the  ship  size  manning  scale,  rather  than  tug-barge  owners 
began  operating  them. 
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A  listing  with  some  of  the  particulars  of  U.  S.  flag  OGTBs  in 
current  or  near  future  operation  with  the  three  above  designs 
is  given  in  Table  1.1. 

Although  only  the  third  generation  OGTBs  are  capable  of 
all-weather  push  operation,  many  tug-barge  owners  have  opted 
to  continue  construction  of  the  second  generation  OGTBs.  The 
reason  is  that  these  tugs  and  barges  are  usually  operated  on 
rather  short  coastal  voyages  and  the  fuel  that  could  saved  by 
all-weather  rather  than  just  fair-weather  push-tow  operation 
does  not  appear  to  outweigh  the  extra  manning  (2)  and  linkage 
(3)  costs  and  reduced  flexibility  associated  with  third  gener¬ 
ation  OGTBs.  The  reduction  in  flexibility  results  from  third 
generation  OGTB  hull  forms  being  not  compatible  for  use  with 
standard  tug  and  barge  units.  This  is  because  their  hull 
forms  having  been  specially  designed  to  absorb  linkage 
stresses  and  provide  a  combined  hull  form  that  is  ship  shape, 
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(3)  Third  generation  OGTB  linkages  require  special  reinforce¬ 
ment  of  the  barge  notch  and  tug  bow  to  absorb  the  stresses 
resulting  from  the  linkage.  This  reinforcement  as  well  as  so¬ 
phisticated  coupling  and  decoupling  gear  can  add  approximately 
a  million  dollars  to  the  cost  of  tug  and  barge.  Additionally, 
the  rigid  linkage  systems  require  heavier  scantlings  overall, 
increasing  the  hull  steel  weight  and  cost  even  further. 
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not  to  mate  with  other  tugs  and  barges. 

However,  for  tugs  and  barges  that  are  to  be  normally 
used  in  long  distance  coastal  or  transocean  voyages,  the 
advantages  of  third  generation  OGTBs ,  lower  fuel  costs  due  to 
reduced  resistance  and  better  controllability,  seem  to  out¬ 
weigh  the  disadvantages;  consequently,  more  operators  are 
building  them  for  these  trades.  Since  the  barges  have  grown 
to  sizes  of  up  to  approximately  50,000  DWT,  these  third  gener¬ 
ation  OGTBs  are  being  used  in  trades  previously  served  by 
ships . 

There  are  basically  two  reasons  why  third  generation 
OGTBs  have  been  displacing  ships,  especially  tankers  and 
bulkers,  in  this  deadweight  size  range — they  are  cheaper  to 
construct  and  less  costly  to  man  than  ships.  Although  it  may 
not  seem  reasonable  that  a  tug-barge  system  consisting  of  two 
separate  vessels  and  an  expensive  linkage  should  be  less  ex¬ 
pensive  to  construct  than  the  equivalent  sized  ship,  this  has 
been  apparently  the  case.  The  reason  usually  given  for  this 
anomaly  is  that  when  the  barge  is  built  in  a  specialized  barge 
yard  (usually  with  little  plate  forming  capability  for  the 
simple  barge  forms)  and  the  tug  in  a  specialized  tug  yard 
(usually  without  any  expensive  drydock  or  building  basin),  the 
higher  efficiencies  resulting  from  this  specialization  will 
outweigh  any  additional  costs  due  to  the  linkage.  The  reduced 
manning  of  third  generation  OGTBs  is  the  result  of  extreme  au¬ 
tomation  of  the  tug's  diesel  plant  and  the  policy  that  the 


barge  remain  unmanned  at  sea  so  that  no  crew  is  needed  to  per¬ 
form  barge  maintenance  (shoreside  personnel  perform  this 
work)  . 


To  summarize,  although  it  appears  that  the  third  genera¬ 
tion  OGTB  is  the  natural  successor  to  the  second  generation 
OGTB,  this  is  true  only  with  respect  to  its  design,  not  its 
use.  Third  generation  OGTBs  have  been  embraced  by  ship 
operators  as  a  less  costly  ship  replacement  and  not  by  the 
tug-barge  operators  as  a  better  tug-barge  system.  (*0  The  va¬ 
lidity  of  this  conjecture  is  confirmed  by  the  fact  that  all  of 
the  third  generation  OGTBs  have  been  operated  in  a  ship  like 
mode--that  is,  the  tug  and  barge  always  remain  together  except 
for  overhauls. 

It  should  be  noted  that  the  use  of  third  generation 
OGTBs  in  place  of  ships  does  not  seem  viable  for  the  long 
term.  If  there  are  significant  advantages  in  building  the 
propulsive  and  cargo  units  in  separate  specialized  yards,  the 
same  can  be  done  for  a  ship,  as  was  demonstrated  by  the  con¬ 
struction  of  the  Great  Lakes  vessel  Stewart  A.  Port.  (5)  As 

(u )  Again ,  this  is  primarily  due  to  the  manning  penalty  that 
results  under  USCG  regulations  for  the  "mechanically"  linked 
third  generation  OGTBs.  In  fact,  the  tug-barge  operators  have 
been  spending  their  time  and  energy  trying  to  develop  an 
improved  second  generation  OGTB  that  will  practically  achieve 
the  performance  of  the  third  generation  OGTB  with  only  cable 
or  chain  linkages  since  these  systems  do  not  have  any  manning 
penalty . 

(5)  The  cargo  component  was  built  in  a  new  modular  construc¬ 
tion  yard  which  was  ideal  for  the  cargo  unit  specialization. 
The  propulsive  bow-stern  component,  however,  was  built  at  a 
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for  the  lower  manning  of  OGTBs ,  there  is  no  technical  or  regu¬ 
latory  reason  why  ship  crews  can  not  be  reduced  to  the  same 
size  as  third  generation  OGTBs  if  they  are  as  fully  automated 
and  follow  the  same  maintenance  policy.  For  example,  the  gas 
turbine  35,000  DWT  Chevron  tankers  were  certificated  by  the 
Coast  Guard  to  be  manned  with  fourteen  men,  the  same  as  most 
third  generation  OGTBs.  These  ships  are  manned  with  about 
twenty  men,  primarily  due  to  union  rules.  But,  it  is  expected 
that  these  rules  will  be  relaxed  when  the  unions  fully  realize 
that  they  could  be  forcing  operators  to  use  second  generation 
tug-barge  systems  which  are  normally  manned  with  fewer  non 
union  personnel.  So,  in  the  future,  a  third  generation  OGTB 
should  not  be  any  cheaper  to  construct  or  to  run  than  an 
equivalent  sized  ship  that  is  built  and  operated  under  the 
same  conditions.' 

However,  there  is  one  inherent  feature  that  third  gener¬ 
ation  OGTBs  have  in  common  with  all  tug-barge  systems  that  is 
not  being  taken  advantage  of  by  their  current  users  and  that 
cannot  be  provided  by  ships.  It  is  the  ability  to  separate 
the  propulsive  unit  from  the  cargo  carrying  unit.  This  flexi¬ 
bility  is  commonly  utilized  in  other  transport  modes,  i.e., 
truck  tractor  with  trailer  and  train  locomotive  with  rail 
cars,  to  increase  system  efficiency  through  increased  utiliza- 


large  shipyard,  probably  to  ensure  that  all  construction  would 
remain  within  company  owned  facilities.  So,  in  this  case  only 
partial  specialization  of  facilities  was  achieved. 
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tion  of  expensive  propulsive  units  and  through  the  storage  ca¬ 
pability  of  the  detached  cargo  units.  It  may  be  that  current 
third  generation  OGTBs  users,  being  previously  experienced  on¬ 
ly  in  ship  operations,  have  just  overlooked  the  potential 
benefits  of  the  separability  of  their  assets,  or  it  may  be 
that  it  is  not  economically  profitable  to  utilize  this  capa¬ 
bility  in  the  trades  in  which  they  operate. 

It  is  the  purpose  of  the  economic  model  developed  in  the 
following  chapters  to  investigate  under  just  what  conditions 
the  separability  feature  of  third  generation  OGTBs  should  be 
utilized.  If  the  model  indicates  that  there  are  few  trades 
where  this  feature  may  be  used,  then  it  would  be  expected  that 
ships  would  eventually  push  them  all-but-out  of  the  shipping 
scene.  However,  if  the  model  indicates  that  there  are  many 
trades  which  could  take  advantage  this  feature,  then  it  might 
be  expected  that  more  ships  and  possibly  other  transport  modes 
could  be  replaced  by  OGTBs  in  the  future.  (6) 

1 . 3  Modes  of  Operation:  Drop  and  Swap  versus  Integral 

As  it  is  the  separability  feature  of  OGTBs  that  make 
them  more  versatile  than  ships,  more  mention  should  be  made  on 
how  this  feature  can  be  profitably  used.  The  major  benefit  is 
the  same  as  that  enjoyed  by  tractor  trailers  over  single  unit 

(6 )  Except  for  long  distance  coastal  or  transocean  tr ad es ,  it 
would  be  expected  that  third  generation  OGTBs  would  not  dis¬ 
place  first  or  second  generation  OGTBs  until  their  relative 
linkage  and  manning  costs  can  be  reduced  significantly. 
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trucks.  That  is,  the  propulsive  unit  (tractor  or  tug)  can  be 
detached  from  the  cargo  unit  (trailer  or  barge)  while  the  car¬ 
go  unit  is  used  for  loading,  discharging,  or  storage.  It  then 
can  be  used  for  transporting  another  cargo  unit  that  is  avail¬ 
able  for  movement.  This  method  of  operation,  the 
drop-and-swap  mode,  obviously  increases  the  utilization  of  the 
costly  propulsive  unit  as  compared  to  the  integral  mode  of  op¬ 
eration  in  which  the  propulsive  unit  always  remains  with  the 
cargo  unit.  However,  as  can  be  seen  in  the  simple  port  pair 
system  shown  in  Figure  1.H,  the  drop-and-swap  mode  will  re¬ 
quire  at  least  two  more  barges  than  tugs  in  a  balanced  trade 
or  at  least  one  more  barge  than  tugs  in  an  unbalanced  trade 
(where  the  tug  remains  with  the  barge  in  one  port). 
Certainly,  the  drop-and-swap  mode  would  be  of  most  benefit  in 
those  trades  in  which  loading/discharging  times  make  up  a  sig¬ 
nificant  part  of  the  voyage  time.  Here,  then  is  the  most  po¬ 
tential  in  increasing  tug  utilization,  especially  in  multi-tug 
fleets  which  can  often  be  scheduled  so  that  a  tug  arrives  with 
a  barge  for  discharge  just  at  the  time  when  a  barge  in  port 
has  completed  its  cargo  operations  and  is  available  for 
transport.  In  this  case  tug  utilization  can  approach  100%. 
Also,  in  trades  with  long  port  times,  the  barges  remaining  in 
port  in  the  drop-and-swap  mode  of  operation  are  used  essen¬ 
tially  as  floating  warehouses,  replacing  shoreside  assets. 
Since  port  time  is  a  function  of  the  barge  cargo  capacity  and 
both  terminals'  loading  and  discharging  rates,  and  since  sea 
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time  is  a  function  of  port  separation  distance  and  OGTB  speed, 
these  four  parameters  are  critical  in  determining  whether  the 
drop-and-swap  mode  should  be  used  over  the  integral  mode.  Be¬ 
cause  the  cost  relationships  that  are  functions  of  these 
parameters  (e.g.,  fuel  cost  is  a  function  of  the  tug-barge 
size  and  form,  OGTB  speed,  and  port  separation  distance)  are 
rather  complicated,  it  is  not  intuitively  obvious  when  one 
mode  is  superior  to  another.  A  systematic  analysis,  such  as 
that  performed  by  a  computer,  is  required  to  determine  where 
the  tradeoff  point  is  for  the  modes. 

1 .  Model  Features 

The  economic  model  described  in  detail  in  the  next  chap¬ 
ter  is  used  to  determine  for  which  trades  OGTBs  should  be  used 
in  the  drop-and-swap  versus  integral  mode.  It  is  in  these 
trades  that  take  advantage  of  OGTB  separability  that  these 
systems  should  flourish,  not  in  those  in  which  they  are  used 
as  pseudo  ships. 

The  trades  analyzed  in  the  model  are  of  the  simple  port 
pair  type  shown  in  Figure  l.u.  This  case  was  chosen  since  it 
is  the  simplest  and  is  appropriate  for  many  of  the  bulk  trades 
(repetitive  voyages  from  the  same  loading  port  to  the  same 
discharging  port).  This  port  pair  trade  can  be  defined  essen¬ 
tially  by  three  sets  of  parameters:  (1)  port  separation 
distance,  (2)  terminal  loading  and  discharging  rates,  and  (3) 
annual  cargo  flows  between  ports. 
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Given  the  specifics  of  the  trade,  the  model  then 
determines  the  barge  size  (and  form)  and  OGTB  speed  that  will 
yield  the  minimum  required  freight  rate  (rfr)  for  both  the  in¬ 
tegral  and  drop-and-swap  modes  (balanced  and  unbalanced).  The 
rfr  is  defined  as  the  freight  rate  that  should  be  charged  for 
a  unit  of  cargo  that  will  recover  all  capital  and  operating 
costs  on  a  present- valued  discounted  cash  flow  basis  (taxes 
and  depreciation  ignored).  Although  specific  details  on  how 
these  costs  are  obtained  is  given  in  the  next  three  chapters, 
some  mention  about  the  general  assumptions  used  in  obtaining 
them  is  given  here  so  that  the  reader  can  skip  to  Chapter  5  if 
he  wishes  to  immediately  read  the  results  of  the  model  without 
the  details  of  its  procedures.  Specifically,  with  respect  to 
capital  and  operating  costs  the  following  was  assumed: 

1.  Barge  capital  costs  were  assumed  to  be  a  direct  func¬ 
tion  of  barge  hull  weight  with  the  addition  of  outfit  cost  de¬ 
termined  via  a  regression  equation  found  in  Sharp  (1975).  The 
hull  weight  as  a  function  of  barge  size  and  form  was  obtained 
via  regression  equations  developed  from  output  of  the  barge 
design  program  presented  in  Chapter  3.  This  program  is  appli¬ 
cable  to  single-skin  tank  barges  joined  by  a  semi-rigid  link¬ 
age  to  the  tug.  These  types  of  barges  were  used  since  they 
are  the  simplest  to  model  and  since  they  are  most  prevalent  of 
the  large  OGTBs  in  use.  The  semi-rigid  rather  than  rigid 
linkage  was  used  since  it  results  in  less  stringent  scantling 
requirements  under  ABS  rules,  and  in  less  barge  cost.  This 
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rather  complicated  approach  was  taken  since  no  reliable  barge 
cost  estimate  could  be  obtained  from  the  little  available  data 
on  OGTBs .  In  addition,  the  variation  in  hull  weight  as  a 
function  of  barge  form  parameters  provided  by  the  subprogram 
is  needed  for  weighing  the  capital  versus  operating  cost 
aspects  of  a  barge  form. 

2.  Tug  capital  costs  was  determined  via  a  regression  equa¬ 
tion  found  in  Sharp  (1  975)  and  adjusted  to  conform  with  prices 
reported  in  recent  trade  literature  and  government 
publications.  Since  many  tugs  have  been  built  recently,  this 
approach  seemed  reasonable.  Some  adjustment  is  made  for  the 
cost  of  the  linkage,  which  is  not  extraordinary  for  semi-rigid 
linkages . 

3.  Storage  capital  costs  were  calculated  for  oil  storage 
tanks.  The  costs  were  based  on  recent  cost  figures  provided 
by  a  major  oil  company. 

4.  Tug  fuel  costs  were  determined  as  a  function  of 
tug-barge  resistance  and  voyage  duration.  Barge  resistance,  a 
function  of  barge  form  and  speed,  was  determined  with  the  use 
of  full-bodied,  bulbous  bowless,  single-screw  tank  barge  re¬ 
sistance  data  found  in  Tsuchida  (1969).  This  was  the  only  se¬ 
ries  resistance  data  that  could  be  found  to  approximate  OGTB 
hull  forms.  An  additional  10%  resistance  was  added  to  account 
for  linkage  interferences  to  conform  with  the  estimates  found 
in  Robinson  (1976). 

5.  Other  operating  costs  were  calculated  by  using  the 
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equations  found  in  Sharp  (1975)  and  then  inflating  them  to 
yield  a  current  estimate--for  1  January  1979. 

Although  the  economic  model  has  been  specifically 
developed  for  the  tank  barge  case,  it  should  still  be  indica¬ 
tive  of  costs  for  other  bulk  trades.  Barge  outfit  cost  would 
probably  be  the  only  major  change  for  other  trades.  Thus,  any 
results  obtained  from  the  tank  barge  model,  even  for  trades 
with  very,  long  port  times  which  are  not  usual  for  oil  barge 
trades,  should  not  be  in  great  error. 


In  the  following  chapters  frequent  mention  will  be  made 
to  specific  computer  program  variables  which  will  be  enclosed 
in  quotation  marks.  Although  their  definition  will  normally 
be  understood  by  context,  detailed  definitions  of  these 
variables  are  provided  in  the  appendices. 
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SOURCE:  Waller  (1972) 

FIGURE  1.1 


BRE IT/ INGRAM  OGTB  LINKAGE  DESIGN 


SECTION  THRU 
"CATUG"a  BARGE 


SOURCE:  Waller  (1J72) 


FIGURE  1.2 

CATUG  OGTB  LINKAGE  DESIGN 
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Deep  Notch-Pinned  "Artubar" 


From  the  tug,  port 
and  starboard_._pi ns  _ 
are  extended  toward 
the  barge.  The  bullet 
shaped  pins  aid 
alighment.  In  the 
extended  position, 
the  pins  fit  into 
lubricated  sockets 
within  the  barge. 


SOURCE:  Waller  (1972) 


FIGURE  1.3 

ARTUBAR  OGTB  LINKAGE  DESIGN 
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INTEGRAL  MODE 


\ 


FIGURE  1.4 

PORT  PAIR  TRADES:  INTEGRAL  AND  DROP-AND-SWAP  MODES 
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TABLE  1.1 


U.S.  FLAG  THIRD  GENERATION  OG1B*S 


Linkage 

design 

Barge 

Type/ 

Service 

Name: 

Tug 

Barge 

Dimensions  (LxBxD); 

Tug-Barge; 

Tug-Barge : 

When  Built: 

Where  Built: 

Tug 

Barge 

Owner/ 

Operator 

Tug 

Barge 

Draft 

length 

HP/Desiqn  Speed 
PWT 

Tug 

Barge 

bre it/ Ingram 

Taconite 

Dry  Bulk/ 

Great  Lakes 

Presque  Isle 

Presque  Isle 

140. 33*  x54 .0*x31 .25* 
974 . 5 1 xl04 . 58' x46 . 50 

29* 

1000* 

14,040/16tnph 

52,000 

12/73 

M 

Halter  Marine 

Erie  Marine 

Crocker  National  BanV 
U.S.  Steel 

Breit/Ingran 

Clean  Products 
Tank/Ocean 

Martha  R.  Ingram 

IOS  1301 

145.84' x46. O' x 30. 25' 
584.5'  :;87 . 0 1  x46 . 33* 

37*5** 

620* 

11,128/14.1  Kts 
36,500 

7/71 

3/71 

Southern  Shipbuilding 
Alabama  Drydock 

Ingrain  Corp. 

Breit/Ir.gram 

Clean  Products 
Tank/Ocean 

Carolt  G  .  Ing  ram 

IOS  3102 

145.84’x46.0*x30.25* 
584 . 50' x87, 0*x46. 33' 

37*5" 

620* 

11,128/14.0  Kts 
37,500 

3/72 

Southern  Shipbuilding 
Levingston  Shipbuilding 

Ingram  Corp 

Ere  lt/Ingram 

Rice  -Phosphate 
Dry -Bulk /Ocean 

Valerie  F 

Valerie  F 

150.67'x54.0*x34.0* 

620.0,x85.0,x45.0, 

30*8" 

656* 

16,000/15.5  Kts 
25,000 

12/76 

Southern  Shipbuilding 
Maryland  Shipbuilding 

,  ,,  '  Fert  ilizer 

BL.lt/lnqrao  j  Dty_Bulk/0cean 

Jamie  A.  Baxter 

CF-1 

125 . O' x45. 0 ' x27 . 75* 
500.0*  x75. 25*x46.5* 

32* 

600* 

7200  /12.5  Kts 
22,500 

6/76 

12/77 

Peterson  Builders 
Avonsdale  Shipyard 

C.  F.  Industries 

c;,rj3 

Oil  Tank/ 

Ocean 

Seabulk  Challenger 
S3C- 3901 

116 . 08 ' x90 . 44 ' x38 . 42  * 
591 ,0’x95.0' x46.0* 

37* 

629* 

14,000/15.5  Kts 
35,000 

1/75 

N 

Galveston  Shipbuilding 
(Kelso  Marine) 

Hvide  Shipping/ 

Shell  Oil 

Chord  cal 
Tank/Ocean 

Seabulk  Magnachem 

S SC- 1902 

116.08' x90 . 44 ' x38 . 42  * 
582. 17 ' x95 . 0 ' x52 .0* 

40*  1" 

615* 

14,000/15.5  *ts 

40,000 

2/77 

Galveston  Shipbuilding 
(Kelso  Marine) 

Hvide  Shipping/ 
Diamond  Shamrock 

S'jr.e  r  phospho  r  ic 
Aei-J/Ocean 

Two  or  Three 

Systems  to  be 

Named 

126*  5“x90,4'*x39' 

626* 6"x99  x50' 

36* 

677*10- 

18,200  /15.5  Kts 
41,250 

80+ 

Avondale  Shipyard 

Occidental  Oil 

On  l  L'G 

Oil  Tank/ 

Ocean 

Two  Systems  to  be 
Named 

127*  7"x90'4"x39* 
645*x95.0*x61 .6" 

40*  6** 
699*4H 

18,200/15.5  Kts 
47,075 

80-81 

Halter  Marine 

Bethlehem  Steel 

Amerada  Hess 

AKT'JBAR 

(2-units) 

Ro-Ro/ 

Ocean 

JJ  Oberdorf 

Other  Names  Unknown 

140'x40'x 

568*x85*  x41*6" 

19* 

605*6- 

7,500 

6450(554  vehicles) 

79-80 

Marinette  Marine 

Seatrain  Shipbuilding 

Coordinated 

Caribbean  Transport 

CHAPTER  2 


DROP-AND-SWAP  COMPUTER  MODEL:  FORMULATION  AND  ASSUMPTIONS 

2. 1  Model  Formulation 

The  drop-and-swap  computer  model  has  been  developed  to 
make  an  economic  comparison  of  the  operation  of  push-towed 
ocean  going  tug-barge  combinations  in  the  drop-and-swap  versus 
integral  modes.  As  shown  in  the  model  formulation  summary  in 
Figure  2.1,  the  model  makes  this  comparison  by  determining  for 
both  modes  the  number  of  tugs  and  barges  and  the  barge  speed, 
size  (DWT),  and  form  (block  coefficient--Cb ,  length-breadth 
ratio--L/B,  breadth-draft  ratio--B/T)  that  results  in  the  min¬ 
imum  required  freight  rate  for  cargo  transported  on  a  port 
pair  trade.  (1)  This  is  subject  to  the  conditions  that  the 
system  has  sufficient  ton-mile  capacity  to  carry  the  annual 
cargo  flows  and  sufficient  number  of  terminal  facilities  at 
each  port  to  handle  the  annual  port  throughput. 

The  objective  function,  the  required  freight  rate  (rfr), 
is  equal  to  the  system  capital  costs  (tugs,  barges,  terminal 

( 1 )  See  Figure  1 . A  and  Section  1 . 4  for  the  definition  o?  a 
port  pair  trade. 


28 


and  storage  facilities)  divided  by  a  present  value  factor  (1) 
plus  system  annual  operating  costs  (fuel  costs,  crewing  costs, 
storage  and  terminal  costs,  etc.)  all  divided  by  the  annual 
cargo  flows.  As  shown  in  Figure  2.2,  these  capital  and 
operating  costs  are  nonlinear  functions  of  the  port  pair  trade 
parameters--port  separation  distance,  terminal  facility 
loading/discharging  rates,  and  annual  cargo  flows--as  well  as 
the  five  continuous  and  three  integral  system  var iables--Barge 
DWT,  Speed,  Cb ,  L/B,  B/T;  Number  of  Tugs,  Number  of 
Barges--Port  1,  and  Number  of  Barges--?ort  2. 

Since  the  last  three  variables  must  be  integral,  this 
makes  the  model’s  form  a  mixed-integer  non-linear  program. 
Programs  of  this  type  are  not  amenable  for  solution  by 
optimization  techniques.  If  they  can  be  solved  at  all,  it  is 
usually  by  some  sophisticated  specialized  technique  that 
transforms  the  model  to  one  that  is  easier  to  solve  but  with 
many  more  variables.  Rather  than  taking  this  approach,  I  de¬ 
cided  to  use  the  brute  force  method  of  exhaustive  enumeration 
because  it  is  the  simplest  to  program  and  because  it  provides 
good  results  at  reasonable  cost  when  the  ranges  of  the 
variables  to  be  considered  are  chosen  judiciously.  With  this 
approach,  I  calculated  for  each  port  pair  trade  and  for  both 
modes  of  operation  the  required  freight  rate  for  all  possible 

( 1 )  The  present  value  factor  apportions  the  capital  costs  on 
an  annual  basis.  It  is  a  function  of  the  capital's  pre-tax 
discount  rate  or  rate  of  return  and  the  economic  life  of  the 
system . 
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combinations  of  the  discretized  values  (1)  of  the  five  contin¬ 


uous  system  variables.  Given  a  specific  combination  of  these 
variables,  the  capacity  and  continuity  constraints  determine 
the  values  of  the  three  integer  variables. 

Since  I  used  discretized  values  for  the  continuous 
variables,  the  minimum  required  freight  rate  found  will  most 
likely  not  be  the  true  minimum.  However,  since  the  objective 
function  was  found  to  very  flat  near  the  optimum,  the  rfr 
found  will  be  close  to  the  true  minimum  even  if  rather  large 
increments  for  the  variables  are  used.  And,  of  course,  a  more 
accurate  estimate  of  the  true  minimum  rfr  can  be  obtained  by 
using  smaller  increments,  although  the  cost  will  probably  not 
warrant  the  additional  accuracy  achieved. 

Prior  to  proceeding  to  a  discussion  of  the  computer 
model’s  logic  and  assumptions  in  the  next  section,  mention 
should  be  made  of  the  parametric  ranges  of  the  system 
variables  for  which  the  model  will  produce  valid  results. 
These  ranges,  which  are  governed  by  the  valid  ranges  of  the 
formulae  used  in  the  model,  are  provided  in  summary  form  in 
Table  2. 1. 


(1)  To  limit  the  number  of  combinations  to  a  finite  an3  rea- 
sonable  number,  it  was  necessary  to  discretize  these  continu¬ 
ous  variables  by  dividing  their  parametric  ranges  into  equally 
spaced  increments.  The  number  of  increments  can  vary  from  two 
to  fifteen  depending  on  the  sensitivity  of  objective  function 
to  changes  in  the  variable. 


30 


2. 2  Summary  of  Program  Logic 

A  summary  of  the  logic  of  the  drop-and-swap  computer 
program  is  shown  in  flow  chart  form  in  Figure  2.3.  A  brief 
discussion  of  the  overall  logic  in  this  section  will  be 
followed  by  a  detailed  discussion  of  each  step  in  the  next 
section . 

The  program  begins  by  asking  the  user  to  specify  the 
port  pair  trades  to  be  considered  as  well  as  the  parametric 
ranges  and  increments  of  the  five  continuous  system  variables. 
It  then  asks  the  user  to  specify  whether  he  wishes  to  change 
any  of  the  semi-fixed  parameters  that  are  used  in  the  cost 
calculations.  Following  this,  it  asks  the  user  to  specify 
what  form  he  wants  the  output.  The  program  then  begins  the 
cost  calculations  for  a  specific  port  pair  trade  iteration 
defined  by  port  separation  distance  and  terminal 
loading/discharging  rates.  Given  these  port  pair  trade 
parameters,  the  model  determines  the  number  of  terminal 
facilities  with  the  specified  loading/discharging  rate  (and 
the  number  of  barges  for  the  drop-and-swap  mode)  that  are 
required  at  each  port. 

Then  the  program  selects  the  next  iterative  values  for 
the  four  barge  size  and  form  system  variables — Barge  DWT,  Cb , 
L/B,  and  B/T.  Given  these  values,  it  calculates  the  barge 
length,  hull  steel  weight,  cost,  and  the  tug  and  barge  princi¬ 
pal  dimensions.  The  program  then  checks  to  see  if  these  sys¬ 
tem  variables  are  feasible  in  that  they  fit  within  the  inter- 
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polation  table  ranges  for  the  tug-barge  residual  resistance 
coefficients.  If  not,  the  program  skips  to  the  next  iteration 
of  the  four  barge  size  and  form  variables.  If  so,  the  program 
selects  the  next  iterative  value  of  tug-barge  speed  and 
calculates  the  horsepower  required  to  be  delivered  to  the  pro¬ 
peller  of  the  tug,  the  tug-barge  resistance,  and  finally  the 
horsepower  of  the  engine  required  to  be  installed  onboard  the 
tug.  Given  these  values,  the  cost  of  the  tug  is  calculated 
and  then  the  number  of  tugs  required  to  provide  sufficient 
transport  capacity  for  both  drop-and-swap  and  integral  modes. 
Then  the  operating  costs  and  the  total  capital  costs  are  de¬ 
termined  for  both  modes.  From  these  the  rfr  can  be 
determined.  If  the  rfr  is  less  than  that  calulated  during 
previous  iterations  of  the  five  continuous  system  variables, 
it  is  saved;  otherwise,  it  is  ignored.  After  all  iterations 
of  the  variables  are  examined,  the  minimum  rfr  found  is  stored 
for  that  port  pair  trade.  After  all  of  the  port  pair  trades 
are  examined  the  program  can  present  the  results  in  various 
graphical  forms. 


2. 3  Drop-and-Swap  Program  Detailed  Logic  and  Assumptions 


The  detailed  logic  and  assumptions  used  in  the 


drop-and-swap  program  are  shown  in  flowchart  form  in  Appendix 
A.  It  will  be  useful  to  refer  to  these  flowcharts  in  the 


discussions  to  follow. 
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2.3.1  Input  of  Port  Pair  Trade  and  System  Variables 

(Refer  to  Figure  2.*0 

After  typing  the  execution  command  " drop_and_swap" ,  the 
program  reads  from  tape  into  memory  the  values  of  the  loadline 
factor,  residual  resistance  coefficient,  self-propulsion 
factor,  and  propeller  design  coefficient  arrays.  The  program 
then  asks  the  user  to  "Input  via  list  format  the  following 
parameters:".  (To  input  via  list  format,  the  user  types  in 
the  value  of  the  requested  parameter  followed  by  a  comma.) 
The  first  request  is  a  question  on  the  desired  form  of  the 
terminal  facility  loading/discharging  rates:  "Do  you  wish  to 
specify  individual  L-D  rates?".  If  the  user  answers  negative¬ 
ly  ("no",  "n" ,  or  "0"),  then  the  program  requests  values  for 
"minrate,  maxrate,  delrate".  This  is  a  request  for  a  range  of 

• 

loading/discharging  rates  in  tons  per  day  per  terminal  facili¬ 
ty  to  be  investigated,  from  "minrate"  to  "maxrate"  in 
"delrate"  increments.  It  is  assumed  that  the  loading  and 
unloading  rates  at  both  terminals  will  be  the  same 
( "rloadl "="runload1 "="rload2"="runload2") .  Also,  if  "delrate" 
is  set  to  zero,  then  a  "delrate"  equal  to  1000  is  assumed. 
If,  on  the  other  hand,  the  user  answers  affirmatively  ("yes", 
"y",  or  "1")  to  the  loading/discharging  rate  question,  then 
the  program  requests  values  for  "rloadl,  runloadl,  rload2, 
runload2".  This  is  a  request  for  a  specific  set  of  terminal 
facility  loading  and  discharging  rates  for  each  port.  In 
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either  case,  any  set  of  loading/discharging  rates  may  be 
specified . 

Now  the  program  continues  with  a  request  for  the  values 
of  "mindist,  maxdist,  deldist'’.  This  is  a  request  for  a  range 
of  port  separation  distances  in  nautical  miles  to  be  consid¬ 
ered  from  ’’mindist”  to  ’’maxdist”  by  "deldist”  increments.  If 
"deldist”  of  zero  is  inputted,  then  a  "deldist”  of  1000  nauti¬ 
cal  miles  is  assumed.  Any  set  of  port  separation  distances 
may  be  considered. 

Next  the  program  requests  values  for  "minspeed, 
maxspeed,  delspeed".  This  is  a  request  for  a  range  of 
tug-barge  speeds  in  knots  to  be  considered  from  "minspeed”  to 
"maxspeed”  by  "delspeed”  increments.  If  "delspeed"  of  zero  is 
inputted,  then  a  "delspeed”  of  1.0  knot  is  .assumed.  Any  set 
of  speeds  can  be  considered.  However,  a  minimum  speed  of  six 
knots  and  a  maximum  of  twelve  or  thirteen  knots  will  usually 
cover  the  optimum  speed  range  and  will  not  exceed  the  boundary 
restrictions  for  Froude  number  and  IHP  shown  in  Table  2.1. 

Next  the  program  requests  values  of  "mindwt,  maxdwt, 
deldwt".  This  is  a  request  for  a  range  of  barge  cargo 
deadweights  in  long  tons  (LT)  to  be  considered  from  "mindwt" 
to  "maxdwt"  by  "deldwt"  increments.  If  "deldwt"  of  zero  is 
inputted,  then  a  "deldwt"  of  5000  LT  is  assumed.  Any  set  of 
deadweights  from  5000  to  80,000  LT  can  be  used. 

Next  the  program  requests  values  for  "aflowavel, 
This  is  a  request  for  the  annual  average  cargo 
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aflowave2"  . 


flows  in  long  tons  from  Port  1  to  Port  2  and  from  Port  2  to 
Port  1,  respectively.  Any  pair  of  values  can  be  specified, 
except  that  "aflowavel"  must  be  greater  than  or  equal  to 
"aflowave2".  For  example,  if  a  one  way  trade  is  desired,  then 
"aflowave2"  is  set  to  zero. 

Next  the  program  requests  values  for  the  three  barge 
form  variables,  "mincb,  maxcb,  delcb" ,  "minlb,  maxlb,  dellb", 
and  "minbt,  maxbt,  delbt" .  These  three  requests  are  for  the 
ranges  of  the  barge  block  coefficient  (Cb),  tug-barge 
length-breadth  ratio  (L/B) ,  and  barge  breadth-draft  ratio 
(B/T)  to  be  considered  from  "mincb",  "minlb" ,  "minbt"  to 
"maxcb",  "maxlb",  "maxbt"  by  "delcb",  "dellb",  "delbt" 
increments,  respectively.  If  "delcb",  "dellb",  or  "delbt"  of 
zero  is  inputted,  then  a  v^lue  of  0.1,  0.2,  or  0.1  is  assumed, 
respectively.  The  valid  ranges  for  these  form  parameters  are 
given  in  Table  2.1.  If  the  user  does  not  input  values  within 
these  ranges  (including  the  reduced  confidence  ranges)  then 
the  program  will  ask  the  user  to  specify  a  new  set  of  form  pa¬ 
rameter  ranges.  After  the  program  has  accepted  the  form  pa¬ 
rameter  ranges,  input  of  the  system  variable  and  port  pair 
trade  ranges  to  be  considered  has  been  completed. 

2.  3.  2 

Now  the  program  outputs  the  statement,  "Input  changes  to 
semifixed  data  via  get  data  format".  This  is  a  request  to  the 
user  to  make  any  modifications  to  the  semi— fixed  parametric 


Input  and  Modification  of  Semi-Fixed  Parameters 
(Refer  to  Figure  2. U ) 
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data  that  .  is  used  in  the  required  freight  rate  calculations. 
The  base  case  values  of  these  parameters  that  are  read  from 
tape  into  memory  are  shown  in  Figure  2.5.  Definitions  of 
these  parameters  can  be  found  in  Appendix  A  .  The  user  may 
modify  the  value  of  any  of  these  semi-fixed  parameters  by  sim¬ 
ply  typing  the  parameter  name  followed  by  an  equal  sign  and 
then  followed  by  the  desired  parameter  value.  Each  parameter 
that  is  modified  should  be  separated  by  a  comma  and  the  final 
one  should  be  followed  by  a  semicolon. 

2.3.3  Selection  of  Output  Format 

Next  the  program  asks  the  user  to  specify  what  type  of 
format  he  desires  for  the  program  output.  Specifically,  it 
asks,  "Do  you  want  printed  output?:".  If  the  user  answers  in 
the  affirmative,  the  program  responds,  "Do  you  want  detailed 
output?:".  If  the  user  answers  this  question  in  the 
affirmative,  the  program  will  print  out  a  line  of  output  for 
every  single  iteration  with  respect  to  port  pair  trade  and 
system  variables.  An  example  of  this  output  for  the  input 
case  shown  in  Figure  2.4  is  shown  in  Figure  2.6.  If  the  user 
answers  negatively  to  the  detailed  output  question,  the  pro¬ 
gram  will  print  the  system  data  associated  with  the  iteration 
that  resulted  in  the  minimum  required  freight  rate  for  both 
modes  ( drop-and-swap ,  then  integral)  for  each  port  pair  trade 
considered.  An  example  of  this  output  for  the  input  case 
shown  in  Figure  2.4  is  shown  in  Figure  2.7. 
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On  the  other  hand,  if  the  user  answers  negatively  to  the 
question  about  printed  output,  or  after  the  program  has 
completed  printing  output,  the  program  will  ask,  "Do  you  wish 
graphic  output?".  If  the  user  answers  negatively,  the  program 
will  start  from  the  beginning,  asking  for  a  new  set  of  inputs. 
Otherwise,  if  the  user  answers  affirmatively,  the  program  will 
ask  a  series  of  questions  concerning  the  form  of  the  graphical 
output.  Samples  of  graphical  output  are  found  in  Chapter  5. 

2.3.4  Iterations  With  Respect  to  Port  Pair  Trades 

At  this  point  the  program  begins  the  first  of  its 
iterative  loops.  It  now  selects  the  next  incremental  value 
for  the  iterative  variable  "distance"  within  the  range 
"mindist"  to  "maxdist".  This  specifies  the  port  separation 
distance  of  the  trade  under  consideration.  Next,  the  program 
will  either  use  the  values  of  "rloadl",  "rload2",  "runloadl", 
and  "runload2"  specified  at  the  beginning  of  the  program  or 
will  set  these  variables  to  the  value  of  the  iterative  vari¬ 
able  "rate"  within  the  range  "minrate"  to  "maxrate".  This 
specifies  the  terminal  facility  loading/discharging  rates  of 
the  port  pair  trade  under  consideration. 

After  this,  the  program  zeroes  the  arrays  ("bestl"  and 
"best2")  that  store  the  character istics  of  the  tug-barge 
systems  that  have  the  lowest  required  freight  rate  for  the 
given  port  pair  trade.  Then  it  calculates  the  monthly  average 
cargo  flows  ("mflowavel"  and  "mflowave2")  which  are  the  annual 
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flows  apportioned  on  a  monthly  basis  taking  in  account  that 


the  barge  is  available  only  "bargeopdays"  of  the  year  for 
serv  ice . 

2.3.5  Calculation  of  the  Number  of  Terminal  Facilities  (and 

Barges  for  Drop-and-Swap  Mode)  Required  at  Each  Port 

Now  that  the  port  pair  trade  charac ter istics  have  been 
defined,  the  program  determines  the  number  of  terminal 
facilities  with  the  specified  loading  and  discharging  rates 
that  must  be  located  at  each  port  to  handle  the  annual  cargo 
flows.  This  is  also  the  number  of  barges  that  must  be  handled 
simultaneously  at  each  port  for  the  drop-and-swap  mode  of 
operation.  This  number  is  determined  by  dividing  the  monthly 
cargo  flows  ( "mflowavel "  and  "mflowave2")  by  the  monthly  ter¬ 
minal  facility  throughput  capacity  (30.5  x  L-D  rate).  The 
specific  formulae  used  are  shown  in  Table  2.2.  It  should  be 
mentioned  that  seven  days  a  week  operations  were  assumed. 

2.3.6  Iterations  With  Respect  to  Barge  Size  and  Form 

Next  the  program  begins  the  iterative  loops  with  respect 
to  barge  size  and  form.  First  it  selects  the  next  incremental 
values  for  the  iterative  variable  "dwt"  within  the  range 
"mindwt"  to  "raaxdwt".  This  specifies  the  barge  cargo  dead¬ 
weight  to  be  used  in  the  calculations  to  follow.  Then  the 
program  selects  the  next  incremental  values  for  the  iterative 
form  variables  "cb" ,  "lb",  and  "bt"  within  the  ranges  "mincb" 
to  "maxcb" ,  "minlb"  to  "maxlb" ,  and  "minbt"  to  "maxbt" , 
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respectively.  This  specifies  the  tug-barge  Cb ,  L/B,  and  B/T 
to  be  used  in  the  calculations  to  follow. 

2.3.7  Calculation  of  Barge  Hull  Weight  and  Principal  Dimensions 

Given  the  values  of  the  barge  DWT  and  form  variables 
specified  in  the  iterative  loops  discussed  above,  the  program 
calculates  the  barge  length  (1)  and  hull  weight  values  via 
quadratic  interpolation  with  respect  to  block  coefficient  from 
the  formulae  provided  in  Table  2.3.  These  formulae  were 
derived  from  the  output  of  the  single-skin  tank  barge  program 
discussed  in  the  following  chapter. 

Next  the  program  determines  the  barge  breadth  by 
dividing  the  tug-barge  length  ("litb")  by  the  length-breadth 
ratio  ("lb").  Similarly,  the  barge  draft  is  determined  by 
dividing  the  barge  breadth  by  the  breadth-draft  ratio  ("bt"). 
It  should  be  noted  that  the  tug-barge  length  is  assumed  to  be 
equal  to  the  barge  length  plus  seven-tenths  the  tug  length. 
This  assumption  closely  approximates  the  lengths  of  the  large 
articulated  push-towed  ocean  going  tug-barge  systems  now  in 
operation . 

Now  the  program  begins  a  short  iterative  loop  by  using  a 
formula  found  in  Sharp  (1975)  to  estimate  the  barge  outfit 

( 1 )  Barge  length  used  in  these  formulae  refers  to  the  distance 
at  the  waterline  from  two-thirds  of  the  barge  notch  length 
forward  of  the  stern  to  the  barge  stem.  This  is  in  accordance 
with  ABS  rules  pertaining  to  articulated  tug-barge  systems 
presented  in  MARAD  (1979). 
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weight  as  a  function  of  barge  length.  Sample  values  from  this 
formula  are  shown  in  Table  2.4.  The  value  of  outfit  weight 
summed  with  the  cargo  deadweight  and  with  the  barge  hull  steel 
weight  is  used  to  estimate  the  barge  displacement.  The  barge 
displacement  is  used,  in  turn,  to  obtain  an  improved  estimate 
of  the  barge  length.  This  procedure  is  then  repeated 
iteratively  until  the  barge  length  as  well  as  barge  displace¬ 
ment  and  outfit  weight  converge  to  unchanging  values.  Given 
the  value  of  outfit  weight,  the  program  calculates  an  estimate 
of  the  barge  cost  by  summing  the  product  of  outfit  weight 
times  a  cost  per  ton  outfit  factor  (1)  with  the  product  of 
hull  steel  weight  times  a  cost  per  ton  hull  steel  factor.  (2) 
If  the  barge  length  is  found  to  exceed  750  feet,  which 
is  beyond  the  feasible  range  of  the  model,  then  the  program 
skips  to  the  next  iterative  value  for  "cb".  Otherwise,  the 
program  calculates  the  barge  freeboard  using  the  rules 
specified  in  IMCO  (1966).  The  specific  formulae  and  table 
values  used  are  shown  in  Table  2.5  and  Figure  2.8.  It  should 
be  noted  that  in  the  freeboard  calculations  it  was  assumed 
that  the  barge  had  no  sheer  and  that  the  barge  is  unmanned  so 
that  a  25%  reduction  in  freeboard  is  allowed.  After  the  barge 

(1)  This  factor  is  assumed  to  be  $12,820  per  long  ton  outfit . 
This  is  based  on  the  value  found  in  (Sharp,  1975)  inflated  by 
30%  to  bring  it  a  January  1979  value. 

(2)  This  factor  is  assumed  to  be  $1100  per  long  ton  hull 
steel.  This  is  based  on  40  man-hours  per  ton  at  $15  per  man 
hour  (including  overhead)  plus  $500  per  ton  material  cost. 


freeboard  is  calculated,  the  barge  depth  is  determined.  At 
this  point  the  program  checks  to  see  if  the  tug-barge  unit's 
dimensions  exceed  any  of  the  length,  breadth,  or  draft 

limitations  ("maxi",  "maxb" ,  "maxtl",  or  "maxt2")  that  may 
have  been  specified  in  the  semi-fixed  parametric  data  for  the 
port  pair  trades  under  consideration.  If  any  of  these 

limitations  are  exceeded,  the  program  skips  to  the  next  "bt" 

iteration.  Otherwise,  it  checks  to  see  if  the  form  parameters 

"cb"  and  "lb”  are  within  the  table  interpolation  ranges 
specified  in  Table  2.1.  If  they  are  not,  the  program  skips  to 
the  next  "lb"  iteration;  otherwise,  it  continues  as  described 
in  the  following  section. 

2.3.8  Iteration  With  Respect  to  Tug-Barge  Speed 

and  Calculation  of  Tug  IHP  and  Cost 

At  this  point  the  program  begins  the  last  of  the 
iterative  loops  which  is  with  respect  to  tug-barge  speed.  It 
selects  the  next  incremental  value  for  the  iterative  variable 
"speed''  within  the  range  "minspeed"  to  "maxspeed".  Then  the 
value  of  "speed"  and  the  tug-barge  principal  dimensions 
("lbarge",  "bbarge",  "tbarge",  and  "cb")  are  fed  into  the 
Subprogram  "power".  This  program,  described  in  detail  in 
Chapter  4,  returns  the  value  of  the  horsepower  required  to  be 
delivered  by  the  propeller  ("dhp")  to  propel  the  tug-barge 
system  through  the  water  at  the  specified  speed.  (1)  From 

Cl)  This  program  also  calculates  "ehpH ,  the  power  required  £o 
propel  the  tug-barge  system  though  the  water,  from  which  the 


this  value  the  shaft  horsepower  can  be  determined.  It  should 
be  noted  that  a  tug  shaft  efficiency  of  98%,  an  appendage  drag 
of  5%,  and  a  linkage  drag  of  10%  were  assumed.  (1) 

Given  the  value  of  the  service  margin  (2)  for  the  tug, 
the  horsepower  of  the  engines  required  to  be  installed  onboard 
the  tug  can  be  determined.  From  this  the  cost  of  the  tug  can 
be  estimated  using  the  formulae  found  in  Sharp  (1975), 
inflated  30%  to  bring  them  up  to  a  January  1979  level.  Sample 
values  from  these  formulae  are  presented  in  Table  2.6. 


2.3-9  Calculation  of  the  Number  of  Tugs  Required 

Now  the  program  begins  the  calculations  to  determine  the 
number  of  tugs  required  to  provide  sufficient  movement  capaci¬ 
ty  for  the  required  annual  cargo  flows.  It  does  this  for  the 
drop-and-swap  modes,  balanced  and  unbalanced,  (3)  and  then  the 


still  water  hull  resistance  can  Ee  determined .  It  also 

provides  values  for  the  self-propusion  factors  ( "wa" ,  "th"  , 
and  "hr”)  and  open  water  propeller  efficiency  "propef". 

(1)  The  assumptions  for  appendage  and  linkage  drag  are  based 

on  conversations  with  articulated  tug-barge  designers.  They 
seem  optimistic  when  compared  to  the  results  presented  in 

Robinson  (1966).  However,  this  study  used  fairly  crude  proto¬ 
type  linkage  forms  and  so  probably  overestimated  the  drag  for 
the  modern  linkages  which  are  well  faired. 

(2)  In  the  model's  base  case  the  service  margin,  the  addition¬ 
al  fraction  of  "ehp"  required  to  ensure  that  the  service  speed 

is  achieved  in  most  seas,  is  assumed  to  be  0.20. 

(3)  The  unbalanced  drop-and-swap  mode  ("dsopt"  =  1)  is  the 

case  where  it  is  assumed  that  the  tug  will  remain  with  the 
barge  in  the  port  with  the  shortest  time  spent  for  cargo 
operations.  This  would  be  appropriate  for  one-way  trades  with 
short  loading  and  long  discharging  times.  In  this  case  the 


integral  mode. 

To  determine  the  number  of  tugs  required  in  the 
drop-and-swap  modes,  the  program  first  calculates  the  time 
required  for  cargo  operations  in  both  ports  ("tportl"  and 
"tport2").  For  "tportl",  this  is  the  barge  cargo  deadweight 
divided  by  the  terminal  facility  loading  rate  plus  the  cargo 
deadweight--weighted  by  a  balance  factor  if  cargo  flows  are 
not  equal  in  both  d ir ections--div ided  by  the  terminal  facility 
discharging  rate.  A  similar  formula  pertains  for  "tport2". 
Then  the  program  calculates  the  sea  voyage  time  for  a  round 
trip.  This  is  twice  the  distance  divided  by  the  system  speed 
plus  linking  and  unlinking  times  if  appropriate  plus  any  other 
expected  port  delays.  (1)  For  the  drop-and-swap  modes,  these 
values  are  fed  into  an  iterative  routine  that  calculates  the 
total  tug  voyage  time  ("ttript")  which  includes  seatime  plus 
any  time  that  tug  is  required  to  wait  for  completion  of  cargo 
operations  ("twaitl"  for  Port  1  and  "twait2"  for  Port  2).  The 
routine  also  calculates  the  minimum  number  of  tugs  ("mintug") 
required  for  the  trades. 

The  logic  of  the  iterative  routine  is  rather  simple. 

waiting  time  for  the  port  that  the  tug  remains  with  the  barge 
is  equal  to  the  cargo  operations  time,  i.e.,  "twaitl"  = 
"tportl".  The  program  selects  the  drop-and-swap  mode  that 
results  in  the  lower  rfr  to  be  stored  and  printed. 

(1)  In  the  model’s  base  case  the  port  delay  and  tug-barge 
linking/unlinking  times  were  estimated  to  be  four  hours.  The 
port  delay  time  takes  in  account  the  expected  time  for  docking 
and  undocking  as  well  as  time  awaiting  berth  for  the  barge. 


After  the  program  assumes  initial  values  for  "mintug" , 
"twaitl"  and  "twait2";  it  calculates  new  values  for  "twaitl" 
and  "twait2"  based  on  the  number  of  barges  stationed  at  each 
port  and  the  currently  assumed  value  for  "mintug”.  This  is 
done  by  assuming  the  tugs  are  on  equally  spaced  time 
schedules.  Given  the  values  of  "twaitl"  and  "twait2",  the  to¬ 
tal  voyage  time  "ttript"  is  determined.  Given  this  value, 
the  minimum  number  of  tugs  ("mintug")  for  the  trade  can  be  de¬ 
termined  by  comparing  the  required  monthly  cargo  flows  with 
the  ton-mile  capacity  of  each  tug-barge  unit.  The  program 
then  will  iterate  and  calculate  new  values  for  "twaitl"  and 
"twait2"  until  the  total  voyage  time  "ttript"  converges  on  an 
unchanging  value.  If  convergence  does  not  occur,  an  error 

message  is  printed.  If  it  is  found  that  the  total  port 

* 

waiting  time  exceeds  the  time  that  would  be  spent  for  cargo 
operations,  then  the  program  prints  out  a  message  stating  that 
the  drop-and-swap  mode  would  not  be  appropriate.  Otherwise, 
the  program  continues  by  calculating  annual  operating  costs, 
as  described  in  the  next  section. 

To  calculate  the  number  of  tugs  required  in  the  integral 
mode,  a  simpler  approach  is  used  than  for  the  drop-and-swap 
mode.  In  this  case,  the  total  voyage  time  is  equal  to  seatime 
and  port  time;  and,  the  number  of  tugs  required  is  simply  the 
minimum  that  will  provide  sufficient  flow  capacity  (number  of 
tug-barges  per  month  times  barge  cargo  deadweight)  to  handle 
the  monthly  cargo  flow  requirements. 


2.3.10  Calculation  of  Annual  Operating  Costs 

Now  that  the  program  has  determined  (1)  the  duration  of 
the  tug  seatime  ( "seat imet" )  which  includes  time  for 
unlinking/linking  and  port  delays,  (2)  the  duration  of  in  port 
time  ( "portimet" )  which  includes  the  time  that  the  tug  must 
await  cargo  operation  completion,  (3)  tug  shaft  horsepower 
("shp")  for  achieving  the  specified  speed,  and  (U)  the  tug  en¬ 
gine  size  ("ihp");  it  is  now  able  to  proceed  to  calculate  the 
various  components  of  the  total  annual  operating  cost  per 
tug-barge  unit.  Discussion  of  the  assumptions  used  in  calcu¬ 
lating  each  of  the  cost  components  is  provided  below. 

Annual  Diesel  Fuel  Cost.  The  annual  diesel  fuel  cost  is  equal 
to  the  number  of  tug  voyages  per  year  ("nrtrips"  = 

"tugopdays"/"ttr ipt" )  times  the  amount  of  diesel  fuel  in  long 

% 

tons  consumed  per  voyage  ("fuelcons")  times  the  cost  per  long 
ton  diesel  fuel.  (1)  The  amount  of  fuel  consumed  per  voyage 
("fuelcons")  is  equal  to  the  tug  at  sea  time  in  hours 
("seatimet")  times  the  hourly  at  sea  fuel  consumption  rate  in 
tons  per  hour  ("rseafuel")  plus  the  tug  in  port  time  in  hours 
("portimet")  times  the  hourly  in  port  fuel  consumption  rate 
("rportfuel"  =  0.125  ton/hr).  The  at  sea  fuel  consumption 

rate  ("rseafuel")  in  long  tons  per  hour,  is  in  turn  equal  to 
the  product  of  the  diesel  engine’s  specific  fuel  consumption 

( 1 )  In  the  model's  base  case,  diesel  fuel  cost  is  assumed  to 
be  $1^0  per  long  ton. 


rate  ("sfc")  (1)  in  pounds  per  horsepower-hour  and  the  tug’s 
shaft  horsepower  (”shp”),  all  divided  by  224Q. 

Annual  Lube  Oil  Costs.  The  annual  lube  oil  cost  is  equal  to 
the  number  of  tug  voyages  per  year  ('’nrtrips”)  times  the 
amount  of  lube  oil  in  gallons  consumed  per  voyage  ("lubecons") 
times  the  cost  per  gallon  for  lube  oil.  (2)  The  amount  of 
lube  oil  consumed  per  voyage  ("lubecons”)  is  assumed  to  be 
equal  to  the  tug  at  sea  time  in  hours  ("seatimet")  times  the 
hourly  at  sea  lube  oil  consumption  rate  in  gallons  per  hour 
( "rlubeoil" ) .  This  hourly  at  sea  fuel  consumption  rate  has 
been  assumed  to  be  equal  to  the  tug’s  shaft  horspower  divided 
by  4000.,  in  gallons  per  hour. 

Annual  Crew  Costs.  The  annual  crew  costs  are  equal  to  the  av¬ 
erage  annual  crew  member’s  wages  and  benefits  ("cwages")  plus 
subsistence  expenses  ("csubs”),  all  times  the  number  of  crew 
members  onboard  the  tug  ("nrcrew").  (3) 


( 1 )  In  the  model’s  base  case,  a  sfc  of  6. 36  is  assumed.  this 
is  a  reasonable  value  for  the  medium  speed  diesels  currently 
used  in  high  powered  tugs.  In  the  future  lower  sfc's  and  fuel 
costs  may  be  obtained  with  the  use  of  low  speed  diesels 
burning  heavy  fuels. 

(2)  In  the  model’s  base  case,  lube  oil  is  assumed  to  be  $1.75 
per  gallon. 

(3)  In  the  model's  base  case  the  average  crew  size  has  been 
assumed  to  be  sixteen,  which  is  very  close  to  the  minimum 
manning  level  of  fourteen  that  the  U.  S.  Coast  Guard  has  pre¬ 
viously  allowed  for  "mechanically-linked"  push-towed  ocean 
going  tug-barges.  (The  extra  two  men  are  used  to  fill 
cook/steward  positions.)  As  for  the  average  crew  member’s 
wages  and  subsistence,  they  were  assumed  to  be  $65,000  and 
$3,500  respectively.  These  vlues  are  in  reasonable  agreement 
with  the  Maritime  Administration  data  shown  in  Table  2.8. 


Annual  Costs  for  Maintenance  and  Repairs,  Insurance,  and 
Stores,  Supplies,  and  Equipment.  The  annual  costs  for. mainte¬ 
nance  and  repairs  ( "amandr" )  ,  insurance  ("ainsur"),  and 
stores,  supplies,  and  equipment  ( "asuppl  ies" )  are  determined 
from  formulae  found  in  Sharp  (  1  975).  These  formulae  are 
functions  of  the  tug  engine  size  and  total  deadweight  of  the 
tug-barge  unit.  Sample  values  from  these  formulae,  which 
have  been  inflated  to  bring  them  up  to  January  1979  levels, 
are  presented  in  Table  2.7. 

Annual  Port  Charges.  The  annual  port  costs  are  equal  to  the 
number  of  voyages  per  year  times  the  port  charges  per  voyage. 
The  voyage  port  charges  consist  of  a  fixed  charge  per  port 
call  ( "cfixpor 1 1  "  and  "cfixport2")  plus  a  variable  cost  which 
is  a  function  of  the  barge  size  ("cvarportl"  x  "dwt"  and 
"cvarport2"  x  "dwt").  (1) 

Annual  Costs  from  the  Time  Value  of  Cargo.  Since  the  cargo 
represents  a  significant  capital  investment  for  its  owner,  the 
cost  of  the  capital  that  is  tied  up  while  the  cargo  is  being 
transported  should  be  considered  in  the  total  operating  costs 
for  the  system.  The  annual  cost  for  the  time  value  of  the 
cargo  ("acargo")  is  equal  to  the  product  of  the  annual  cargo 
flows  ("aflowavel"  +  "aflowave2")  times  the  sea  time  in  years 
and  times  the  discount  rate  for  capital  ("disrate"). 

(1)  In  the  model's  base  case,  all  the  port  charge  factors 
( "cfixpor tl " ,  "cfixport2",  "cvarportl",  and  "cvarport2")  are 
assumed  to  be  zero. 
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Annual  Terminal  and  Storage  Operating  Costs.  The  annual  ter¬ 
minal  operating  costs  ("atermcp")  are  simply  the  product  of 
the  annual  cargo  flows  ( "aflowavel "  +  "aflowave2")  and  the  av¬ 
erage  cost  per  ton  cargo  for  load ing /d isc harg ing  operations 
( "cv ar term" )  .  Similarly,  the  annual  storage  costs  ("astorop") 
are  simply  the  product  of  the  annual  cargo  flows  and  the  aver¬ 
age  cost  per  ton  cargo  for  in  port  storage.  (1) 

Calculation  of  the  Total  Annual  Operations  Costs.  At  this 
point  the  total  operating  costs  per  tug-barge  unit  ("aopcost") 
can  be  determined.  It  is  simply  the  sum  of  fuel,  lube  oil, 
crewing  and  subsistence,  maintenance  and  repair,  stores, 
supplies,  and  equipment,  insurance,  cargo  value,  port 
charges,  and  other  miscellaneous  ("aother")  (2)  costs.  The 
total  operating  costs  ( "totopcost" )  are  then  equal  to  the  num¬ 
ber  of  tug-barge  units  times  the  operating  cost  per  tug  plus 
the  terminal  operating  costs  plus  fleet  administrative  costs 
("admin”).  (3)  For  the  drop-and-swap  modes  3%  of  the  cost  of 
the  additional  barges  required  to  be  stationed  at  the  ports  is 
added  to  take  account  for  the  maintenance  and  repair,  stores, 
supplies  and  equipment,  and  insurance  incurred  by  these  addi- 

( 1 )  Tn  the  model's  base  case,  all  terminal  and  storage  costs 
are  assumed  to  be  zero. 

(2)  In  the  model's  base  case  it  is  assumed  that  the 
miscellaneious  other  costs  amount  to  $30,000  per  year  for  each 
tug  . 

(3)  In  the  model's  base  case  it  is  assumed  that  the  adminis¬ 
trative  costs  per  fleet  amount  to  $150,000  per  year. 
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tional  units.  For  the  integral  mode,  the  annual  storage  costs 
are  added  to  take  in  account  that  shoreside  storage  facilities 
must  be  used  for  storage  rather  than  the  barges  that  remain  in 
port  for  the  drop-and-swap  modes. 

To  show  that  the  values  resulting  from  the  formulae  and 
other  assumptions  used  in  calculating  the  operating  costs  are 
reasonable,  a  comparison  of  the  model's  output  is  made  with 
some  Maritime  Admininistr ation  tug-barge  data  in  Table  2.8. 

2.3.11  Calculation  of  System  Capital  Costs 

After  the  total  operating  costs  are  calculated,  the  pro¬ 
gram  then  determines  the  total  system  capital  cost 
( "totcapcost" )  for  the  drop-and-swap  and  integral  modes  of 
operation.  This  total  capital  cost  consists  of  the  barge 
price  times  the  number  of  barges  in  the  system  plus  terminal 
and  storage  facility  capital  costs.  These  costs  are  adjusted 
to  take  account  of  the  increased  productivity  that  result  from 
multi-unit  orders  by  use  of  the  learning  curve  factor  formula 
found  in  Sharp  (1975).  The  barge  and  tug  prices  are  equal  to 
the  tug  and  barge  costs  ("ctug"  and  "charge")  calculated 
previously,  but  increased  by  10%  to  take  into  account  shipyard 
profit.  The  terminal  facility  cost  is  assumed  to  be  some  cost 
factor  ("cfixterm")  in  dollars  per  ton-day  times  the  sum  of 
the  terminal  facility  loading/discharging  rates  times  the  num¬ 
ber  of  facilities  per  port.  The  storage  facility  cost,  which 
pertains  to  the  integral  mode  only,  is  assumed  to  be  equal  to 
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the  product  of  some  cost  factor  in  dollars  per  cargo  dead¬ 
weight  ton  ( "cfixstor" )  times  the  barge  cargo  deadweight  times 
the  number  of  terminal  facilities  ("minbargel"  +  "minbarge2',)  . 
This  formula  assumes  that  a  storage  facility  equal  to  the 
barge  capacity  must  be  built  onshore  for  each  terminal 
facility.  This  is  only  one  of  many  possible  ways  of 
estimating  shoreside  storage  requirements  and  was  used  just  to 
give  an  indication  of  how  storage  costs  might  affect  the 
tradeoffs  in  operating  in  the  drop-and-swap  versus  integral 
mode.  (1)  In  a  real  operating  environment,  the  storage  capac¬ 
ity  will  depend  primarily  on  the  ability  of  the  tug-barge 
systems  remaining  on  rigid  schedules. 


2.3.12  Calculation  of  Required  Freight  Rates 

At  this  point  the  program  has  completed  all  the 
calculations  required  to  determine  the  required  freight  rate 
for  recovering  all  operating  and  capital  costs  for  the  system. 
The  required  freight  rate  is  simply  the  total  system  capital 
cost  ( "totcapcost" )  divided  by  the  present  value  factor 
("pvf")  plus  the  total  system  operating  costs  ( "totopccst" )  , 
all  divided  by  the  total  annual  cargo  flows.  Now  all 
calculations  have  been  completed  within  the  iterative  loops. 
All  that  remains  to  be  done  is  the  storage  within  the  computer 
program  of  the  system  variable  and  cost  values  for  the 


(1)  In  the  model’s  base  case  terminal and storage fac il ity 
capital  costs  were  assumed  to  be  zero. 
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iterations  resulting  in  the  lowest  required  freight  rate  for 
the  port  pair  under  consideration. 


2.3.13  Storage  of  System  Parameters  for  Minimum  RFR  Iterations 
For  each  iteration  of  barge  size,  form,  and  speed,  the 
program  determines  the  associated  required  freight  rate  for 
the  drop-and-swap,  unbalanced  drop-and-swap ,  and  integral 
modes  of  operation.  If  for  a  particular  iteration  the  rfr  for 
either  regular  or  unbalanced  drop-and-swap  mode  is  found  to  be 
lower  than  that  found  for  previous  iterations  of  the 
drop-and-swap  modes,  then  the  system  values  for  that  iteration 
replace  those  previously  stored  in  the  array  "bestl" .  The 
same  pertains  to  the  integral  mode  which  has  its  optimum  sys¬ 
tem  values  stored  in  the  array  "best2" .  So,  at  the  end  of  all 
the  iterations  with  respect  to  tug-barge  DWT,  Cb ,  L/B,  B/T, 
and  speed;  the  arrays  "bestl"  and  "best2"  contain  the  system 
values  for  the  drop-and-swap  mode  (the  better  of  the  balanced 
and  unbalanced  modes)  and  integral  mode,  respectively,  that 
result  in  the  minimum  rfr.  At  this  point  the  program  will 
print  out  (if  printed  output  was  requested)  the  optimum  system 
parameters  for  both  drop-and-swap  and  integral  modes  for  each 
trade  specified  by  its  port  separation  distance  and 

loading/discharging  rate.  It  also  will  store  certain  of  the 
system  parameters  such  as  minimum  rfr,  optimum  barge  size  and 
speed,  etc.,  in  storage  arrays  that  will  be  used  in  the 
graphical  output  routines.  Following  this,  the  program  will 
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return  to  the  beginning,  requesting  new  inputs. 

This  concludes  the  detailed  description  of  the 
drop-and-swap  program.  Discussion  of  the  tug-barge  powering 
and  barge  hull  weight  subprograms  follows  in  the  next  two 
chapters . 
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Objective  Function: 


Minimize  (Required  Freight  Rate) 

For  a  port  pair  trade  defined  by: 

(1)  Port  separation  distance 

(2)  Terminal  facilities  loading/discharging  rates 

(3)  Required  annual  cargo  flows 


Capacity  Constraints: 

Ton-mile: 

.No.  Voya 

(No.  Tugs)  x  (Barge  DWT)  x  (— - — 1 — 

^  Tug-Year 

Terminal  Facility: 


No.  Voyages  >  Required  Annual 
rn,, ’  '  Cargo  Flows  ' 


^  ,  Annual  Thruput,  „  /  Required  Annual/  i 

(No.  Facilities  per  Port)x  ( - 5 

per  Facility  | Cargo  flows  |  \ 

Through  Port  j  ) 


Continuity  Constraint: 

(No.  Barges)  =  (No. Tugs)  +(No.  Barges-Port  1)  +  (No.  Barges-Port  2) 


Parameter  Boundary  Constraints: 


mindwt  s 
minspeed  $ 
mincb  < 
minlb  S 
minbt  S 


Barge  DWT 
Tug-Barge  Speed 
Barge  C^ 
Tug-Barge  L/B 
Barge  B/T 


$  maxdwt 

$  maxspeed 

<:  maxcb 

$  maxlb 

£  maxbt 


Integrality  Conditions 
I  No .  Tugs 
{ No .  Barges  - 
!No.  Barges  - 


Port  1 
RDrt  2 


integer 


FIGURE  2.1 
MODEL  FORMULATION 
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Required  Freight  Rate  = 


Capital  Costs 

_ PVF  +  Annual  Operating  Costs 


Annual  Cargo  Flows 


Capital  Costs  »  (NO.  Barges)  x  (Barge  Cost)  +  (No.  Tugs)  x  (Tug  Cost) 
+  (Terminal  Costs)  +  (Storage  costs) 

(  Barge  Cost  *  f{ Barge  DWT,  L/B,  B/T, 

I  Tug  Cost  *  f{ Installed  Horse  power  (IP)} 

I  IHP  -  f{Barge  DWT,  L/B,  B/T,  Cg,  Tug-Barge  Speed} 


Terminal 

Cost 

Storage 

Cost 


f{Terminal  Loading/Discharging  Rates} 


f{ Barge  DWT} 


Annual  Operating  Costs 


Fuel  Costs  +  Terminal  Costs 
♦Storage  Costs  +  M&R  Costs 
screwing  and  Subsistence  Costs 
♦Insurance  Costs  +  Administrative  Costs 


Fuel  Costs  »  Seatime  x  (Sea  Fuel  Consumption  Rates) 

♦Port  time  x  (Port  Fuel  Consumption  Rate) 

,  -.Port  Separation  Distance. 

f  Seatime  (  ■  -  ■  l1  . . _ - , -  ) 

\  Tug-Barge  Speed 


)- , _ Barge  DWT _ . 

Port  Time  'Terminal  Facility  L/D  Rate' 

(Barge  DWT,  L/B,  B/T ] 

Sea  Fuel  Consumption  Rat e«f< Block  Coefficient;  > 

1  Tug=  Barge  Speed  1 

Port  Fuel  Consumption  Rate  »f (Hotel  Load)  =  constant 

Terminal  Costs  =  f (Annual  Cargo  Flows) 

Storage  Costs  =  f (Annual  Cargo  Flows) 

Maintenance  and  Repair  Costs  / 

Supplies  and  Equipment  Costs  >  =  f (Barge  DWT,  Tug  IHP) 
Insurance  Costs  \ 


Crew  Wages  and  Benefits 
Crew  Subsistence 


Administrative  Costs 


f(crew  size)  *  constant 


constant 
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calculate 
Barge  length 
f (lb,  bt,  dwt) 

Barge  hull  steel  weight 
fUb,  bt,  dwt) 


output: 

Optimum  speed,  dwt,  rfr 
for  given  distance  and  L/D 
rate _ .  _ 


FIGURE  2.3 


SUMMARY  FLOWCHART  FOR  DROP-AND-SWAP 


COMPUTER  MODEL 
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drop_and_swap 

Input  via  list  format  the  following  parameters: 

Do  you  wish  to  specify  individual  port  L-D  rates?:  no 
minrate,  maxrate,  delrate:  2000. , 14000. , 2000.  , 
mindist,  maxdist,  deldist:  500 ., 5000. , 1500. , 
minspeed,  maxspeed,  delspeed:  6. ,13- , 1.  , 
mindwt  ,  maxdwt  ,  deldwt:  5000 ., 1 00000 .  ,  5000 .  , 
aflowavel,  aflowave2:  1000000., 0., 
mincb,  maxcb,  delcb:  .75, .83, .01, 

U1 

03 

minlb,  inaxlb,  dellb:  6. ,6.4, .2, 

minbt,  maxbt,  delbt:  2. ,3. ,.5, 

input  changes  to  semifixed  data  via  get  data  format  maxt1=38.,  maxt2=38.; 
Do  you  want  printed  output?:  y 
Do  you  want  detailed  output?:  y 

FIGURE  2.4 


SAMPLE  INPUT  FOR  THE  DROP-AND-SWAP  MODEL 


This  is  the  semi-fixed  parametric  data  file. 


tugopdays 

350.00 

barg  eo  pd  ays 

350. 00 

tlink  (hrs) 

4.00 

tunlink  (hrs) 

4.00 

servmargin 

0.20 

fuelmarg in 

0.20 

sfc  ( lb/HP-hr ) 

0.36 

cfuel  ($/LT) 

140.00 

clube  ($/gal) 

1.75 

nrcrew 

16.00 

cwages  ($/yr) 

65000. 00 

csubs  ($/yr) 

3500.00 

csteelt  ( $  1 000/LT ) 

2.94 

coutfitt  ( $  1 000/LT ) 

15. 08 

csteelb  ($1000/LT) 

1  .  10 

coutfitb  ( $  1  000/LT ) 

12.82 

1  tug  (ft) 

140.00 

wmisc  (LT) 

460.00 

aother  ($/yr) 

30000.00 

admin  ($/yr) 

1 50000. Q0 

cfixportl  ($/call) 

0.00 

cfixport2  ($/call) 

0.00 

cvarport 1  ($/DWT) 

0.00 

cvarport2  ($/DWT) 

0.00 

cfixterm  ($/DWT-day) 

0.00 

cvarterm  ($/DWT) 

0.00 

cfixstor  ($/DWT) 

0.00 

cvarstor  ($/DWT) 

0.00 

delay)  (hrs) 

4.00 

delay2  (hrs) 

4.00 

maxi  (ft) 

999.00 

maxb  (ft) 

999.00 

maxtl  (ft) 

99. 00 

maxt2  (ft) 

9  9. 00 

disrate 

0.  10 

econlife  (yrs) 

2  0.00 

infl  afc  tr 

0.00 

vcargo  ($/DWT) 

200.00 

BASE  CASE  VALUES  FOR 
SEMI-FIXED  PARAMETRIC  DATA 

FIGURE  2.5 
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FIGURE .2.6 


EXAMPLE  OF  DETAILED  OUTPUT  FROM  THE  DROP-AND-SWAP  COMPUTER  MODEL 
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FIGURE  2.7 


EXAMPLE  OF  SUMMARY  OUTPUT  FROM  DR0P-AND-SWAP  MODEL 
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FIGURE  2.8 


EQUATIONS  USED  IN  THE  CALCULATION  OF  BARGE  FREEBOARD 


TABLE  2.1 


RANGES  FOR  SYSTEM  PARAMETERS 


Parameter 

Lower 

Bound 

Upper 

Bound 

Restrictions/ 

Comments 

Reason  for  Bound 

Barge  DWT 

9,000 

6,000 

80,000 

100,000 

Reduced  confidence 
range 

Sharp  11975) 

Valid  ranges  for 
operating  cost 
formulae 

Barge  Length 

100' 

750’ 

ABS  (1973) 

i 

Valid  ranges  for  i 

barge  hull  weight 
formula 

Froude  Number 

0 

0.22 

0.298  Tug  Speed 

Tsuchida  (1969) 
Valid  range  for  re- 

! 

*  n/Two-Barge  Length 

sidual  resistance 
coefficients 

Barge  CB* 

0.775 

0.835 

i|  If  If 

0.75 

0.85 

Reduced  confidence 
range 

Tug-Barge  L/^ 

6.2 

7.6 

If  II  It 

6.0 

8.0 

Reduced  confidence 
range 

Barge  B/T 

2.46 

2.76 

2.00 

3.25 

Reduced  confidence 
range 

if  if  II 

Barge  L/D 

i 

0 

16.0 

ABS  (1973) 
valid  range  for 
barge  hull  weight 
formula 

1  Tug  IHP 

i 

( 

— 

■ 

35,000 

35,000 

Reduced  confidence 
range 

Sharp  (1975) 

Valid  range  for 
operating  cost 
formulae  and  tug 
capital  cost  formula 

*Either  C  or  L/B  can  be  in  the  reduced  confidence  range,  but  not  both. 
B 
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TABLE  2.2 


Port  Special 

Conditions 


Formulae 


„  .  .  ,  „  . ,  "mflowavel"  ,  ”mflowave2"  . 

minbargel  -  ceiK30>5xl.rloadl(l  +  30. Sx^nloadl"* 


„  ....  . ,  ,"mflowave2" 

"rloadl  “0  'minbargel  =  ceil(30_5K„tmloadlJ 


"runloadlo=0  “minbargel"* 


..  •  w  . ,  ."mflowavel"  .  "mflowave2''  v 

minbarge2  =  ceil{30.  5xlfrunload2„  +  30.5x,,rload2") 


2  "rload2"=0  "minbarge2"=  ceil 

*  30.5x"runload2" 


.  ,  „  „  .  .  .  "mflowave2"  , 

'runload2  =0  "mnbarg.21-  ) 


Note:  The  function  ceil  in  the  above  formulae  is  used  to  round 


to  the  next  largest  integer  the  expression  in  parenthesis. 
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TABLE  2.3 


BARGE  HULL  WEIGHT  AND  LENGTH  FORMULAE 


Parameter 

Block  Co¬ 
efficient 

Formula 

Barge  Length 

0.75 

1.128  ..0.742  .  0 . 382  0.336 

"lbarge75"=e  lb  bt  dwt 

"lbarge" 

„  ..  1.108  ,,  0.739  ,  0.381  ,  0.336 

0.80 

lbarge80  =e  lb  bt  dwt 

0.85 

B1.  oc„  1.088  0.737  0 . 379  .0.336 

"lbarge85"=e  lb  bt  dwt 

Barge  Hill 

0.75 

„.  t,  -6.206,,  1.348  0 . 884  ,  1.104 

"hullwt75"=e  -lb  •  bt  -dwt 

Weight 

0.80 

,  „„  -6.396  ,1.368  ,  0.909  ,  1.111 

hullwt80"=e  lb  bt  dwt 

"wsteelb " 

0.85 

hullwt85  =e  lb  bt  dwt 

TABLE  2.4 

BARGE  OUTFIT  WEIGHT 

Formula:  "woutfitb"  =  max(50,  1 . 496x"lbarge"-284 . 24) 


Barge  Length 

Outfit  Weight 

200 

50.00 

250 

89.76 

300 

164.56 

350 

239.36 

400 

314.16 

450 

388.96 

500 

463.76 

550 

538.56 

600 

613.36 

650 

688.16 

700 

762.96 

750 

837.76 
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TABLE  2,5 


MINIMUM  FREEBOARD  VALUES 


Barge 

Length 

Minimum 

Freeboard 

Barge 

Length 

Minimum 

Freeboard 

Barge 

Length 

Minimum 

Freeboard  1 

100* 

9.8" 

320' 

43.2" 

540T 

86 . 3" 

110 

10.8 

330 

45.0 

550 

88.0  , 

120 

11.9 

340 

46.9 

560 

89.6  : 

130 

13.0 

350 

48.8 

570 

91.1  ; 

140 

14.2 

360 

50.7 

580 

92.6 

150 

15.5 

370 

52.7 

590 

94.1 

160 

16.9 

380 

54.7 

600 

95.5 

170 

18.3 

390 

56.8 

610 

96.9 

180 

19.8 

400 

58.8 

620 

98.3 

190 

21.3 

410 

60.9 

630 

99.6 

200 

22.9 

420 

62.9 

640 

100.9 

210 

24.5 

430 

65.0 

650 

102.1 

220 

26.2 

440 

67.0 

660 

103.3 

230 

27.8 

450 

69.1 

670 

104.4 

240 

29.5 

460 

71.1 

680 

105.5 

250 

31.1 

470 

73.1 

690 

106.6  ; 

260 

32.8 

480 

75.1 

700 

107.7 

270 

34.6 

490 

77.1 

710 

108.7 

280 

36.3 

500 

79.  C 

720 

109.7 

290 

38.0 

510 

80.9 

730 

110.7 

300 

39.7 

520 

82.7 

740 

111.7 

310 

41.4 

530 

84.5 

750 

112.6 

SOURCE: 


Table  A,  Chapter  III,  IMCO  International  Convention  on 
Load  Lines,  1966. 


TABLE  2.6 


TUG  CAPITAL  COSTS 


29“n=  "-teelt..=0.64(iS./  ♦  16.79,^.,  ♦  37S 


♦  3.733,^  ,  +  1M 

^ChinerS'  =  >-cht-  -0.00889(11^) 2  *  32.88,^,  .4.999 


Tug  Machinery 


=  1,  300  (0 . 314  x  I  HP  +  1730) 


Tug  Cost 


1,000  [2. 94*(T?7q.H£Q)+  1 5 . 08*( Tug  °U+"fit)  +  Machinery 

Weight  Weight  Cost 


I  HP 

Tug  Hull 
Weight (LT) 

2,000 

414.14 

2,500 

423.98 

3,000 

434.13 

4,000 

455.40 

5,000 

477.95 

6,000 

501.78 

7,000 

526.89 

8,000 

553.28 

9,000 

580.95 

10,000 

609.90 

12,000 

671.64 

14,000 

738.50 

16,000 

810.48 

18 , 000 

887.58 

20,000 

969.80 

22,500 

1079.78 

25,000 

1197.75 

27,500 

1323.73 

30,000 

1457.70 

Tug  Outfit 
Weight (LT) 


160.21 

162.00 

163.88 

167.92 
172.33 
177.12 

182.27 
187.81 
193.71 
199.99 
213.67 
228.84 
245.50 
263.65 
283.30 
309.96 
338.95 

370.27 

403.93 


Tug  Machinery  Tug  Machinery 
Weight  (LT)  Cost ($1000) 


70.40 

86.64 

102.84 

135.10 

167.18 

199.08 

230.80 
262.35 
293.72 
324.91 
386 . 76 
447.90 
508.32 
568.04 
627.04 

699.80 
771.44 
841.98 
911.40 


3065.4 

3269.5 

3473.6 

3881.8 
4290.0 

4698.2 

5106.4 

5515.6 

5922.8 
6331.0 

7147.4 

7963.8 

8780.2 

9596.6 
10413.0 

11433.5 
12454.0 

13474.5 
14495.0 


Tug  Cost 
($1000) 


6.698.1 

6.958.1 

7,220.4 
7,752.0 
8,293.0 

8.843.3 

9.403.1 

9.972.3 
10,550.8 

11.138.7 

12.342.8 

13.584.4 

14.863.5 
16,180.2 
17,534.4 

19.280.1 
21,084.4 

22,947.3 
24,869.0 


SOURCE:  Sharp  (1975) 

*Cost  factors  inflated  30%  from  values  given  in  source. 
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TABLE  2.7 


ANNUAL  OPERATING  COSTS  FOR  SUPPLIES  AND  EQUIPMENT,  MAINTENANCE  AND 

REPAIR,  AND  INSURANCE 


Supplies  and  ■  "asupplies"  =■  1.3* (40+0. 0018xIHP  +  0.00026  x  TDWT) 
Equipment 


Maintenance 
and  Repair 


"amandr" 


1.5*  (128.8+  4.539 ( 


IHP 

1000 


)- 


„  „  .  ,IHP  , 

°-04W 


2 


+ 


2  477  /Z25E.) . 
^•4//t1000) 


0.009107  ( 


TDWT.  2 
1000' 


Insurance  *  "ainsur"  *  1.5* (210  +  0.0036  x  IHP  +  0.0018  x  TDWT) 


TDWT 

IHP 

Supplies  & 
Equipment 
($1000) 

Maintenance  S 
Repair 
($1000) 

Insur  since 
($1000) 

5,000 

2,000 

58.4 

224.8 

339.3 

N 

6,000 

67.7 

250.1 

360.9 

M 

10,000 

77.1 

273.5 

382.5 

If 

14,000 

86.5 

295.0 

404.1 

20,000 

2,000 

63.4 

275.4 

379.8 

It 

6,000 

72.8 

300.7 

401.4 

ft 

10,000 

82.2 

324.1 

423.0 

14,000 

91.5 

345.6 

444.6 

35,000 

2,000 

68.5 

319.9 

420.3 

n 

6,000 

77.9 

345.2 

441.9 

tt 

10,000 

87.2 

368.6 

463.5 

t# 

14,000 

96.6 

390.1 

485.1 

50,000 

2,000 

73.6 

358.2 

460.8 

If 

6,000 

82.9 

383.5 

482.4 

It 

10,000 

92.3 

406.9 

504.0 

It 

14,000 

101.7 

428.4 

525.6 

tt 

18,000 

111.0 

447.9 

547.2 

65,000 

2,000 

78.7 

390.4 

501.3 

ft 

6,000 

88.0 

415.7 

522.9 

•1 

10,000 

97.4 

439.1 

544.5 

It 

14,000 

106.7 

460.6 

566.1 

It 

18,000 

116.1 

480.1 

587.7 

SOURCE:  Sharp  (1975) 

NOTE:  TDWT=Cargo  Deadweight  +  Fuel  Weight  +Miscellaneous  Weight 
•Inflation  Factor  to  bring  cost  to  1  Jan  79  level 
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TABLE  2.8 


COMPARISON  OF  MODEL  AND  MARAD  DATA 
FOR  ANNUAL  OPERATING  COSTS 


Vessel 

Type 

Annual 

Crew  Wages 

Annual 

Subsistence 

Costs 

Annual 

M&R 

Costs 

Annual 
Supplies  £ 
Equipment 

Annual 

Insurance 

Annual 

M£R 

Supplies  £ 
Equipment 

Other 

Annual 

Costs 

Total 

Operating 

Costs 

5,000  DWT 
3,000  IHP 
cy  1978 

658,152 

23,725 

200,000 

63,270 

496,000 

759,270 

36,000 

1,477,147 

Model 

1  Jan  1979 

845,000 

45,500 

231,321 

60,710 

344,700 

636,731 

30,000 

1,557,231 

33,500  DWT 
15,000  IHP 

1  Jan  77 

821,250 

47,815 

405,150 

127,385 

542,755 

1,075,290 

29,200 

1,973,555 

Model 

1  Jan  1979 

1,040,000 

56,000 

390, 966 

98,423 

486,450 

975,839 

30,000 

2,101,839 

40, 000DWT 
18,000  IHP 
cy  1980 

1,060,000 

50,000 

460,683 

71, 317 

352,250 

884,250 

■ 

189,600 

2,183,850 

Model 

1  Jan  1979 

1,040,000 

56,000 

442,247 

107,640 

520,200 

1,070,387 

180,000 

2,346,387 

40,000  DWT 
18,000  IHP 
cy  1980 

1,100,000 

60,000 

705,000 

220,000 

561,000 

1,486,000 

20,000 

2 , 666 , 000 

Model 

1  Jan  1979 

1,040,000 

56,000 

442, 747 

107,640 

520,200 

1,070,387 

30,000 

2,196,387 

SOURCE:  Data  Received  from  Maritime  Administration  Office  of  Ship  Construction, 

December  1978. 


CHAPTER  3 


BARGE  DESIGN  PROGRAM  TO  ESTIMATE  HULL  STEEL  WEIGHT 

3. 1  Introduction 

The  barge  design  program  has  been  developed  to  provide 
an  estimate  of  the  hull  weight  of  tank  barges  as  a  function  of 
their  size  and  form.  This  weight  estimate  is  used  by  the 
drop-and-swap  program  to  calculate  the  barge  capital  construc¬ 
tion  costs.  This  is  done  by  multiplying  the  hull  steel  weight 
estimate  by  a  dollar  per  ton  factor  to  yield  the  .  hull  cost 
which  is  added  to  the  outfit  cost  to  yield  the  barge  cost 
estimate.  This  approach  was  taken  rather  than  a  simple  re¬ 
gression  equation  through  historical  costs  because  too  few 
large  tank  barges  have  been  built  to  yield  a  reliable  predic¬ 
tion  equation,  and  those  that  have  been  built  were  of  various 
designs  and  arrangements  so  that  their  costs  were  really  not 
comparable.  Also,  since  barge  capital  costs  make  up  a  signif¬ 
icant  part  of  the  total  cost  of  a  tug-barge  project,  it  was 
deemed  necessary  to  develop  a  non-trivial  model  for  obtaining 
reasonably  accurate  and  consistent  estimates  of  the  hull  steel 
weight.  An  additional  benefit  derived  from  the  barge  design 
model  is  that  it  provides  hull  weights  for  various  barge  forms 
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(length-breadth  ratio,  breadth-draft  ratio,  and  block 
coefficient)  for  a  given  deadweight.  This  information  is  used 
by  the  drop-and-swap  program  to  determine  the  least  costly 
form  with  respect  to  capital  and  propulsive  costs. 

The  barge  design  model's  approach  for  estimating  the 
weight  of  a  barge  of  given  size,  form,  and  longitudinal  frame 
and  transverse  girder  spacing  is  basically  the  same  as  used  by 
a  naval  architect  in  his  preliminary  design  work.  That  is, 
the  program  determines  the  minimum  weight  mid-ship  scantlings 
that  will  satisfy  the  requirements  promulgated  in  the  American 
Bureau  of  Shipping's  offshore  barge  (ABS  (1973))  and  steel 
vessel  (ABS  (1978))  rules  and  that  will  conform  with  usual 
shipyard  practice.  From  the  midship  scantlings  a  weight  per 
longitudinal  foot  can  be  determined  from  which  the  hull  weight 
can  be  estimated.  The  program  does  optimize  in  the  sense  that 
it  selects  the  longitudinal  frame  and  transverse  girder 
spacings  within  user  specified  ranges  and  increments  that 
yield  the  minimum  weight  scantlings.  It  was  felt  that  this 
parametric  optimization  procedure  which  determines  a  local 
minimum  within  the  specified  parametric  ranges  was  the 
simplest  though  not  most  elegant  approach  to  take.  A  more 
theoretical  optimization  procedure  using  a  stress  and  bending 
moment  analysis  could  probably  be  used  to  develop  a  more  ra¬ 
tional  barge  design  model,  but  it  most  likely  could  not  take 
account  of  the  complexities  involved  in  classification  society 
rules  that  are  used  in  barges  constructed  today. 
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It  should  be  mentioned  that  it  has  been  assumed  that  the 
minimum  weight  barge  would  be  the  optimum.  In  reality,  the 
minimum  weight  design  may  not  be  the  least  costly.  For 
example,  a  design  with  wider  longitudinal  spacing  may  be  less 
expensive  due  to  reduced  welding  and  cutting  costs  than  the 
less  heavy  design  of  narrower  spacing.  However,  it  was  found 
from  the  model's  outputs  that  the  calculated  hull  weight  was 
not  very  sensitive  to  longitudinal  spacing;  (1)  so  that  as 
long  as  a  reasonable  minimum  longitudinal  spacing  is  specified 
(eliminating  the  possibility  of  unreasonably  small  and  numer¬ 
ous  longitudinal  frames),  the  minimum  hull  weight  design 
should  not  be  very  far  from  the  optimal,  minimum  cost  design. 

The  design  model  was  originally  developed  for  the 
single-skin,  ’center  longitudinal  tank  barge  design  shown  in 
Figure  3.1  for  the  following  two  reasons:  (1)  these  barges 
have  the  simplest  scantling  form  and  thus  were  the  easiest  to 
model,  and  (2)  these  types  of  barges  have  been  the  most  preva¬ 
lent  of  the  large  ocean  going  barges  so  that  actual  barge  hull 
weight  data  could  be  obtained  to  calibrate  the  model. 
However,  if  proposed  U.  S.  Coast  Guard  anti-pollution 
regulations  become  effective,  no  single-skin  tank  barges  will 
be  constructed  in  the  future.  Tank  barges  will  be  required 
either  to  have  double  hulls  or  protective  segregated  ballast 

( 1 )  As  an  example ,  the  minimum  hull  steel  weights  c alcul ated 
for  the  six  longitudinal  spacings  ( 1 . 50  1 -2 . 75  ' )  shown  in  Fig¬ 
ure  3.9  differ  less  than  3%. 
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tanks  located  either  in  double  sides,  bottoms,  or  hulls.  If 
this  change  occurs,  the  single-skin  design  model  will  have  to 
be  modified  to  account  for  the  additional  internal  structure. 
In  order  to  see  how  just  one  of  these  types  of  modifications 
will  affect  the  hull  weight  of  a  barge  of  specified 
deadweight,  the  single-skin  model  was  written  with  the  option 
for  calculating  the  hull  weights  of  barges  with  double-bottom 
scantlings  as  shown  in  Figure  3.2.  The  comparison  of 
single-skin  and  double-bottom  tank  barges  presented  in  Section 
3.6  indicates  the  approximate  additional  weight  (and  cost) 
such  internal  structure  will  cause. 

In  the  text  that  follows,  the  logical  structure  of  the 
single-skin  tank  barge  program  and  the  modifications  required 
to  allow  for  double-bottoms  are  presented.  This  is  followed 
by  a  presentation  and  discussion  of  the  results  of  the 
program . 


3. 2  Logical  Structure 

The  logical  structure  of  the  program  is  shown  in  flow 
chart  form  in  Figure  3-3.  In  the  text  following,  each  block 
of  the  flow  chart  will  be  expanded  so  that  the  equations  (with 
associated  references)  and  assumptions  used  will  be 
enumerated.  It  should  be  mentioned  that  it  has  been  assumed 
for  simplicity  that  deck,  bottom,  side,  and  bulkhead 
longitudinal  frame  spacings  will  be  the  same.  The  same  holds 
for  transverse  girder  spacings. 
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3.2.1  Input  of  Parameter  Values 


The  program  requires  as  input  the  barge  principal 
dimensions,  block  coefficient,  and  scantling  arrangement  op¬ 
tion  (single-skin  or  double-bottom),  as  well  as  the  parametric 
range  and  increment  for  the  spacing  of  longitudinal  frames  and 
transverse  girders.  The  ranges  and  increments  chosen  should 
conform  with  current  shipbuilding  practice.  Specifically,  the 
following  values  for  the  barge  design  must  be  provided: 


"l"  : 
"b"  : 
"d,f : 
"t" : 
"cb"  : 


scantling  length  at  the  waterline 

molded  breadth 

molded  depth 

summer  waterline  draft 

block  coefficient 


"minlonspac" :  minimum  longitudinal  frame  spacing 

to  be  investigated 

"maxlonspac" :  maximum  longitudinal  frame  spacing 

to  be  investigated 


"minxyrspac” :  minimum  transverse  girder  spacing 

to  be  investigated 

"maxxvrspac" :  maximum  transverse  girder  spacing 

to  be  investigated 

n incrlonspac” :  the  increment  to  be  used  in  the  parametric 

variation  of  longitudinal  frame  spacing  from 
its  minimum  to  its  maximum  allowed  value 


" incrxvrspac” :  the  increment  to  be  used  in  the  parametric 

variation  of  transverse  web  spacing  from  its 
minimum  value  to  its  maximum  allowed  value 
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Limitations  on  the  values  of  these  parameters  as  given 
within  the  specified  paragraphs  of  ABS  (1973)  are  as  follows: 


Limitation 

Paragraph 

100  ft  <_  ”1”  _<  750  ft 

(Table  3.2) 

”  1 " / ” d ”  <  15 

(3.5) 

maxlonspac”  <  3  1/3  ft 

(5.1.1) 

3.2.2  Calculation  of  Required  Section  Modulus 

In  accordance  with  ABS  (1973,  par.  3.3.1),  the  program 
determines  the  required  hull-girder  section  modulus  at  amid¬ 
ships  ("smreq")  as  follows: 

" smreq"  =  "fact"  x  "b"  x  ("cb"  +  1/2) 


where 

"fact” 

has 

its  value 

determined 

by 

its  length 

from  ABS 

(1  973, 

Table 

3.2) 

which  is 

repl  icated 

in 

Table  3.1. 

This  sec- 

tion  modulus  is  the  best  approximation  that  can  be  made  for 
design  purposes  without  knowing  the  actual  bending  moments 
that  the  barge  would  experience  in  still  water. 

3.2.3  Calculation  of  the  Unsupported  Spans  of  Transverse 
Girders  and  Required  Number  of  S  tanchions 

The  unsupported  span  of  deck  and  bottom  transverse 

girders  is  shown  as  ”12"  in  Figures  3.1  and  3*2.  ”12"  has 
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been  limited  to  less  than  15  feet  in  accordance  with  ABS 


(1978,  para.  11.5)  by  inserting  stanchions  equally  spaced  be¬ 
tween  the  bulkhead  and  side  girders.  To  obtain  the  required 
span  and  the  number  of  stanchions  ("stans"),  the  program 
assumes  certain  arbitrary  values  for  the  depth  of  longitudinal 
bulkhead  and  side  girders  as  shown  in  Table  3.2.  These 
assumptions,  although  arbitrary,  have  been  shown  reasonable 
when  compared  with  actual  barge  scantlings. 

The  unsupported  span  of  longitudinal  bulkhead  and  side 
girders  is  shown  as  "14"  in  Figure  3.1.  It  is  essentially  the 
length  between  the  top  of  the  bottom  girder  (or  double  bottom 
plate)  to  the  bottom  of  the  deck  girder. 

3.2.4  Beginning  of  Program  Iterations  with  respect  to 


Scantlings  are  calculated  for  bottom  members,  followed  by  side 
members,  deck  members,  and  finally  the  longitudinal  bulkhead 
members.  The  actual  scantlings  are  calculated  by  the  use  of 
two  subroutines — "smactl"  for  longitudinal  frames  and  "smact2" 
for  transverse  girders. 

The  subroutine  "smactl"  requires  the  following  inputs: 

1.  The  thickness  of  the  shell  plating 

2.  The  minimum  required  section  modulus  for  the  member 

3.  The  effective  width  of  shell  plating  to  be  used  in  the 
section  modulus  calculations  within  the  subroutine. 

The  subroutine  "smact2"  requires  similar  inputs,  except 
for  the  addition  of  the  depth  of  the  associated  longitudinal 
frame  which  is  obtained  as  output  from  subroutine  "smactl". 

3*2.5  Derivation  of  the  Inputs  for  Subroutines 
"smactl"  and  "smact?" 

3*2.5. 1  Plate  thickness.  The  thicknesses  of  plating  to 
be  used  as  inputs  into  subroutines  "smactl"  and  "smact2"  are 
the  minimums  allowed  by  ABS  (1973).  The  appropriate  rules  are 
summarized  in  Table  3-3.  These  thicknesses  are  rounded  up  to 
the  nearest  1/16  inch  in  order  to  conform  with  standard  plate 
stock.  For  the  same  reasoning,  plate  stock  is  limited  to 
1.^375  inches. 

3- 2. 5. 2  Section  modulus.  The  section  moduli  to  be  used 
as  inputs  into  subroutines  "smactl"  and  "smact2"  are  the 
minimums  required  by  ABS  (1973).  The  appropriate  rules, 
including  the  definition  of  pressure  heads,  are  summarized  in 
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Table  3. 21  for  longitudinal  frames  and  in  Table  3.5  for  trans¬ 
verse  girders. 


3. 2. 5. 3  Effective  plating.  The  width 
plating  to  be  used  in  subroutines  " stnacti"  and 
minimum  of  the  following  three  values  based  on 
rules : 

1.  Longitudinal  frame  spacing  ("lonspac") 
"smactl";  transverse  girder  spacing  (" 
subroutine  "smact2",  per  ABS  (1  973,  par.  1.25.1 

2.  One  third  the  unsupported  span  of  the 
Tables  3. 21  and  3.5),  per  ABS  (1  973,  par.  1.25.1 

3.  Sixty  times  the  plate  thickness  as  per  Ev 


of  effective 
" smact2"  is  the 
the  referenced 

for  subroutine 
xvrspac")  for 
) 

member  (1  in 

) 

ans  (1975) 


3.2.6  Calculation  of  Hull  Girder  Section  Modulus 

At  this  point,  the  minimum  scantlings  required  to  satisfy 
the  individual  frames  and  girders  have  been  determined  by  re¬ 
petitive  calling  of  the  subroutines  "smactl"  and  "smact2". 
The  next  step  is  to  determine  whether  the  individual 
longitudinal  members  (plates  and  longitudinal  frames)  provide 
sufficient  material  to  satisfy  the  minimum  hull-girder  section 
modulus  requirement  calculated  in  Section  3.2.2.  This  is  done 
by  using  the  method  shown  in  Comstock  (  1  967,  pp.  183-1  821  )  which 
uses  all  longitudinal  material  in  the  calculation.  In  our 
case,  this  includes  bottom,  side,  deck  and  longitudinal  bulk¬ 
head  longitudinal  frames  and  plates. 
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3.2.7  Strategy  to  Satisfy  Minimum  Hull  Girder 
Section  Modulus  Requirement 

If  the  calculation  of  the  bottom  and  deck  hull-girder 
section  modulus  results  in  values  greater  than  the  minimum 
required,  then  the  hull  weight  is  calculated,  as  explained  in 
the  Section  3.2.8.  Otherwise,  it  is  necessary  to  increase  the 
dimensions  of  certain  of  the  longitudinal  members  in  such  a 
way  that  should  provide  the  maximum  increase  in  the  calculated 
deck  and/or  bottom  section  moduli  with  the  smallest  amount  of 
additional  material.  Since  the  barge  hull  is  essentially  a 
stiffened  box  girder,  is  is  apparent  that  material  should  be 
added  to  the  extreme  flanges — the  deck  and  bottom  plates  and 
longitudinals — to  get  the  maximum  increase  in  section  modulus 
for  the  given  material  added.  This  is  exactly  what  the  pro¬ 
gram  does.  It  begins  with  the  deck  longitudinal  members  since 
the  deck  section  modulus  will  be  initially  smaller  than  the 
bottom  section  modulus  due  to  smaller  hydrostatic  pressure  ex¬ 
perienced  by  the  deck  members. 

Specifically,  the  program  increases  the  dimensions  of 
deck  scantlings  in  the  order:  (1)  deckplate  (by  1/16"s),  (2) 


deck  longitudinal  flange  width 

( by 

1/2"s) , 

and 

(3) 

deck 

longitudinal 

flange 

thickness 

( by 

1/I6"s) . 

The 

program 

increases  the 

first 

d imension 

on 

the  list 

that 

is 

not 

constrained  by  usual  yard  practice  or  structural 
considerations.  This  procedure  continues  until  the  deck 
modulus  is  at  least  as  great  as  the  bottom  modulus.  Then,  if 
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the  deck  and  bottom  section  moduli  are  still  smaller  than  the 
required  section  modulus,  the  program  will  increase  the 
dimensions  of  the  bottom  scantlings  in  the  order:  (1)  bottom 
plate  (by  1/I6"s),  (2)  bottom  longitudinal  flange  width  (by 

1/2"s),  and  (3)  bottom  longitudinal  flange  thickness  (by 
1/l6"s).  The  program  increases  the  first  dimension  on  the 
list  that  is  not  constrained  by  yard  practice  or  structural 
considerations.  This  procedure  continues  until  the  bottom 
section  modulus  exceeds  the  deck  section  modulus;  then  the 
program  goes  back  to  increase  the  deck  scantlings.  This 
iterative  procedure  keeps  the  deck  and  bottom  section  moduli 
balanced  until  both  exceed  the  required  hull-girder  section 
modulus,  or  until  all  constraints  become  binding.  In  this 

case,  the  program  prints  an  error  message  that  states  the 

* 

scantlings  cannot  be  increased  sufficiently  to  provide  the 
required  section  modulus.  The  program  then  continues  by 
incrementing  the  spacing  of  either  the  longitudinals  or 
transverses  and  proceeding  with  the  individual  section  moduli 
calculations . 

The  constraints  used  in  this  iterative  procedure  are  as 
follows : 

1.  Web  depth  >  2  x  flange  width 

2.  Plate  thickness  <  1  7/16" 

3.  Flange  thickness  <  (web  thickness  +  1/8") 

4.  Flange  width  <  32  x  web  thickness 

The  first  three  constraints  are  based  on  reasonable  yard 
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practices,  and  the  last  is  used  to  conform  with  Jenkins  (1977) 
to  ensure  flange  material  is  effectively  utilized. 

The  hull-girder  section  modulus  routine  has  two  special 
features  that  help  ensure  longitudinal  scantlings  are  of  rea¬ 
sonable  dimensions  and  minimum  weight.  The  first  is  that  when 
either  the  deck  or  bottom  plate  is  increased  in  thickness,  the 
program  calls  the  subroutine  "smactl"  to  ensure  the  associated 
longitudinal  stiffener  has  scantlings  that  reasonably  match 
the  plate  to  which  it  is  attached. 

The  second  feature  is  one  that  limits  the  deck  plate 
thickness  to  "n"/16  inches  greater  than  the  bottom  plate  be¬ 
fore  any  increases  are  made  to  the  other  two  deck  scantlings. 
The  value  of  "nM  is  initially  set  to  zero  and  is  then 
increased  incrementally.  For  each  value  of  "n" ,  longitudinal 
member  ‘scantlings  are  calculated  to  satisfy  the  hull  section 
modulus  requirement.  The  resultant  hull  weight  is  then  deter¬ 
mined  (as  per  Section  3.2.8),  and  "n"  is  allowed  to  increase 
until  hull  weight  no  longer  decreases.  This  feature  was 
heur istically  determined  to  provide  the  minimum  hull  weight 
satisfying  the  required  hull-girder  section  modulus  for  a 
specified  longitudinal  frame  and  transverse  girder  spacing. 

3.2.8  Calcuation  of  Hull  Weight 

Given  the  longitudinal  member  scantlings  obtained  from 
the  previous  hull-girder  section  modulus  routine,  the  program 
calculates  the  resulting  longitudinal  steel  cross-sectional 
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area.  From  this,  the  longitudinal  weight  per  foot  is  deter¬ 
mined  simply  by  multiplying  the  cross-sectional  area  in  square 
inches  by  the  steel  weight  factor:  3.a  pounds  per  square 
inches-foot.  To  this  must  be  added  the  longitudinal  weight 
per  foot  contributed  by  bottom,  side,  deck,  and  longitudinal 
bulkhead  transverse  girders,  as  well  as  by  the  stanchions  and 
transverse  bulkhead  plates  with  associated  stiffeners.  The 
details  of  how  the  weights  per  foot  for  these  transverse 
members  are  determined  are  shown  in  Table  3.6.  The  hull 
weight  is  then  simply  found  by  multiplying  the  weight  in 
pounds  per  longitudinal  foot  by  the  factor:  nl"/22^0,  which 
converts  it  into  weight  in  long  tons.  This  weight  could  then 
be  multiplied  by  a  correlation  factor  which  would  account  for 
the  different  scantlings  used  in  the  bow  and  stern  areas  as 
well  as  weld  weights.  However,  at  this  point,  it  appears  that 
the  hull  weight  calculated  is  in  reasonable  agreement  with  the 
hull  weights  of  single-skin  tank  barges  currently  in 
operation . 

The  program  finishes  the  routine  for  a  specific  value  of 
longitudinal  and  transvers  girder  spacing  and  "n"  by  storing 
these  values  and  those  of  the  hull  weight  and  associated  deck 
and  bottom  hull  girder  section  moduli  if  the  calculated  hull 
weight  is  less  than  that  found  during  previous  iterations. 
Thus,  at  the  end  of  all  iterations  with  respect  to 
longitudinal  and  transverse  spacing,  the  minimum  hull  weight 
barge  particulars  will  be  available  for  outputting.  It  is  al- 
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so  at  this  point  of  the  program  that  it  is  determined  whether 
"n"  should  be  incremented.  This  is  done  by  examining  whether 
the  last  increase  in  "n"  had  changed  the  calculated  values  of 
the  deck  and  bottom  hull-girder  section  moduli.  If  no  change 
is  observed,  then  iterations  with  respect  to  "n"  are 
terminated  and  either  the  longitudinal  or  transverse  spacing 
is  incremented  . 

Finally,  at  the  end  of  all  iterations,  the  program 
outputs  the  values  of  hull  weight,  longitudinal  and  transverse 
girder  spacing,  deck  and  bottom  section  moduli,  and  "nH  for 
the  barge  of  the  least  hull  weight  found  within  the  parametric 
ranges  and  increments  of  longitudinal  and  transverse  girder 
spacing . 

3. 3  Calculation  of  Longitudinal  Frame  Scantlings 
tThe  Logic  of  HsmactlH 

As  explained  previously  "smactl”  calculates  the 
scantlings  of  a  longitudinal  member  given  the  input: 

1.  Plate  thickness  (”tn) 

2.  Plate  effective  width  as  a  flange  ("s") 

3.  Required  section  modulus  for  the  member  ("srar”) 

The  logical  flow  of  how  these  scantlings  are  calculated  is 
shown  in  Figure  3.u  and  will  be  explained  in  detail  in  the 
following  text. 

First  the  subroutine  assumes  certain  initial  values  for 
the  dimensions  of  the  scantlings.  These  are: 
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D imension 


Initial  Value 


Plate  thickness 
Plate  depth 
Web  depth 
Web  thickness 


Flange  width 


Flange  thickness 


as  specified  in  inputted  value  "t" 
as  specified  in  inputted  value  "s" 
3.5” 


plate  thickness,  for 
than  3/8" 

pi  ate 

thinner 

plate  thickness  less 
thicker  than  3/8” 

1/8”  , 

for  plate 

the  greater  of: 

( 1 )  web  thickness 

(2)  3/u” 
plate  thickness 


These  values  were  chosen  as  to  be  reasonable  for  the  smallest 
allowed  scantlings,  based  on  available  rolled  sections. 

The  strategy  of  the  subroutine  is  then  to  calculate  the 
section  modulus  of  the  longitudinal  with  the  above  minimum 
scantlings.  If  the  calculated  section  modulus  is  less  than 
that  required  by  the  inputted  value  "smr",  the  program 
increments  the  scantling  dimensions  in  a  manner  that  will  at¬ 
tempt  to  add  the  least  amount  of  steel  area  while  achieving 
the  required  section  modulus.  It  was  found  from  theoretical 
analysis  and  empirical  observation  that  the  best  approach  was 
to  increase  the  dimensions  of  the  scantlings  in  the  order: 
(1)  web  depth  (by  1/2"s),  (2)  flange  width  (by  1/2”s),  (3) 
flange  thickness  (by  1/l6”s),  and  (W)  web  thickness  (by 
1/l6"s).  The  subroutine  will  increase  the  first  dimension  in 
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the  above  list  that  is  not  constrained  by  usual  yard  practice 
or  structural  considerations.  The  constraints  based  on  usual 
shipyard  practice  were  as  follows: 

1.  5  x  flange  width  >  web  depth  >  2  x  flange  width 

2.  Flange  thickness  <  plate  thickness 

3.  Web  thickness  <  plate  thickness 
Web  depth  <  18” 

Certainly,  none  of  these  constraints  have  to  be  rigidly 
maintained,  but  they  do  represent  reasonable  values.  The 
constraints  based  on  strucural  considerations  were  as  follows: 

1.  Web  depth  less  than  75  times  web  thickness  to  conform 
with  Horne  (1958)  to  ensure  stability  against  web  buckling 

2.  Flange  width  less  than  32  times  web  thickness  to  con¬ 
form  with  Jenkins  (1977)  to  ensure  flange  width  material  is 
really  effective  in  the  section  modulus. 

After  any  scantling  is  increased,  the  subroutine 
recalculates  the  section  modulus.  If  it  exceeds  the  required 
section  modulus,  the  subroutine  returns  the  scantling 
dimensions  to  the  main  program.  Otherwise,  it  repeats  the 
above  procedure  until  no  dimension  can  be  increased  without 
violating  a  constraint.  At  that  point  an  error  message  prints 
out  that  scantling  limits  have  been  exceeded  in  ”smact1”  and 
sends  an  indicator  to  the  main  program  that  this  condition 
exists  so  appropriate  action  can  be  taken. 
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3. 11  Calculation  of  Transverse  Girder  Scantlings 
(the  Logic  of  "smact2") 


As  explained  previously,  subroutine  "smact2"  calculates 
the  scantlings  of  a  transverse  girder  given  the  input: 

1.  Plate  thickness  ("tp") 

2.  Plate  effective  width  as  a  flange  ("s") 

3.  Required  section  modulus  for  the  member  ("smr") 

4.  Depth  of  the  associated  longitudinal  frame  ("dep"), 
i.e.,  depth  of  the  deck  longitudinal  for  a  deck  girder 

The  logical  flow  of  how  these  scantlings  are  calculated  is 
shown  in  Figure  3.5  and  will  be  explained  in  detail  in  the 
following  text. 

First  the  subroutine  assumes  some  initial  values  for  the 
dimensions  of  the  scantlings.  Many  of  these  initial  values 
are  the  minimums  allowed  by  ABS  (1973)  and  (1978).  The  values 
and  the  associated  references  are  presented  in  Table  3.7.  The 
strategy  of  the  program  is  similar  to  that  described  for 
"smactl".  First  the  subroutine  calculates  the  section  modulus 
of  the  girder  with  the  above  minimum  scantlings.  If  the  cal¬ 
culated  section  modulus  is  less  than  that  required  by  the 
inputed  value  "smr" ,  then  the  program  increments  the  scantling 
dimensions  in  a  manner  that  will  attempt  to  add  the  least 
amount  of  steel  area  while  achieving  the  required  section 
modulus.  It  was  found  from  theoretical  analysis  and  empirical 
observation  of  the  program  that  the  best  approach  was  to  in- 


crease  the  dimensions  of  the  scantlings  in  the  order:  (1)  web 
depth  (by  l"s)  ,  (2)  flange  width  (by  l"s) ,  (3)  flange  thick¬ 
ness  (by  1/16"s)  ,  (4)  and  web  thickness  (by  1/l6"s).  The 
subroutine  will  increase  the  first  dimension  in  the  list  that 
is  not  constrained  by  usual  yard  practice  or  structural 
considerations.  The  constraints  based  on  usual  shipyard  prac¬ 
tice  were: 

1.  5  x  flange  width  >  web  depth  >  2  x  flange  width 

2.  Web  depth  less  than  ^8"  for  bottom  and  deck  girders 

3.  Web  depth  less  than  80”  for  side  and  bulkhead  girders 

4.  Web  thickness  <  (plate  thickness  +  1/2") 

5.  Flange  thickness  <  (web  thickness  +  1/2") 

6.  Flange  thickness  <  1  7/16" 

7.  Web  thickness  <  1  7/16" 

Certainly,  none  of  these  constraints  have  to  be  rigidly 
maintained,  but  they  do  represent  reasonable  values  as 
verified  by  conversations  with  shipyard  personnel.  The 
constraints  based  on  structural  considerations  were: 

1.  Web  depth  <  75  x  web  thickness,  to  conform  with  Horne 
(1958)  to  ensure  stability  against  web  buckling 

2.  20  x  web  thickness  <  flange  width  <  32  x  web  thickness, 
to  conform  with  Jenkins  (1977)  to  ensure  flange  width  material 
is  really  effective  in  the  section  modulus. 

After  any  scantling  is  increased,  the  subroutine 
recalculates  the  section  modulus.  If  it  exceeds  the  required 
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returns  the 


section  modulus,  the  subroutine 


sc  anti ing 


dimensions  to  the  main  program.  Otherwise,  it  repeats  the 
above  procedure  until  no  dimension  can  be  increased  without 
violating  a  constraint.  At  that  point  an  error  message  is 
printed  out  that  states  scantling  limits  have  been  exceeded  in 
subroutine  "smact2"  and  the  program  sends  an  indicator  to  the 
main  program  that  this  condition  exists  so  appropriate  action 


can  be  taken. 


3. 5  Modification  to  Allow  Hull  Weight  Calculation  of 
Double-Bottom  Tank  Barges 

The  barge  design  program  requires  just  a  few  simple 
modifications  to  allow  for  the  calculation  of  the  hull  weight 
of  double  bottom  barges.  The  mid-section  plan  of  the 
double-bottom  barge  including  the  delineation  of  the 
dimensions  is  shown  in  Figure  3.2.  It  should  be  noted  that 
"14",  h  for  stanchons,  and  "hi"  differ  from  Figure  3.1  and 
that  the  depth  of  the  double  bottom  ("dbdep")  and  the  head  to 
the  inner  bottom  longitudinals  ("h5")  are  added. 

The  program  logic  for  double-bottom  barges  is  identical 
to  that  for  single-skin  barges  except  for  the  following  items: 

1.  Instead  of  calculating  the  scantlings  of  the  bottom 
transverse  girder  which  is  not  part  of  a  double-bottom  barge, 
the  program  calculates  the  depth  of  the  double  bottom  in  ac¬ 
cordance  with  the  rule  presented  in  Table  3.8. 

2.  The  values  of  "1^",  "h2",  and  h  for  stanchions  are 
based  on  the  geometry  of  Figure  3.2  which  differs  from  the 
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single-skin  case  of  Figure  3.1. 

3.  After  calculating  the  minimum  scantlings  required  to 
satisfy  the  required  section  modulus  for  longitudinal  bulkhead 
transverses,  the  program  calculates  values  for  the 
double-bottom  plate  thickness  ("dbplt" ),  double-bottom  side 
and  center  girder  thicknesses  ( "siddbgirdth"  and 
"cendbgirdth" )  ,  and  head  for  double-bottom  longitudinals 
(Mh5")  in  accordance  with  the  rules  of  ABS  (1973)  and  (1978), 
presented  in  summary  form  in  Table  3.8. 

4.  Following  3.  above,  the  program  determines  the  required 
section  modulus  for  double-bottom  longitudinal  stiffeners  in 
accordance  with  rules  presented  in  Table  3.4.  Following  this, 
subroutine  "smactl"  is  called  using  this  required  section 
modulus,  "dbplt" ,  and  the  effective  plate  width  (calculated  in 
a  manner  similar  to  the  other  scantlings)  as  input  parameters. 
After  this,  the  program  proceeds  to  the  routine  that 
calculates  hull-girder  section  moduli. 

5.  In  the  hull-girder  section  moduli  calculation,  proper 
account  is  taken  of  the  longitudinal  members  of  the  double 
bottom,  i.e.,  double  bottom  plate  and  longitudinals  as  well  as 
center  and  side  girders. 

6.  In  the  hull  weight  calculation,  proper  account  is  taken 
for  the  longitudinal  members  of  the  double  bottom  as  well  as 
the  double-bottom  floors  which  replace  the  bottom  transverse 
girders  of  single-skin  barges. 
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3 . 6  Barge  Design  Model  Results 


3.6.1  Input  and  Output  Formats 

To  run  the  barge  design  model  the  simple  input/output 
program  "bargtestl",  shown  in  Figure  3.6,  was  written.  This 
program  allows  the  user  to  specify  values  of  the  following  in¬ 
put  variables :  ( 1 ) 

1.  Barge  Principal  Dimensions:  length--"l",  bread th--"b"  , 
depth--"d",  draft--"t" ,  and  block  coef f ic ient--"cb"  (2) 

2.  Range  and  Increment-  for  Longitudinal  Frame  Spacings: 
"minlonspac"  ,  "maxlonspac"  ,  and  " incr lonspac" 

3.  Range  and  Increment  for  Transverse  Web  Spacings: 
"minxvrspac" ,  "maxxvrspac" ,  and  " incrx vrspac" 

4.  Barge  Internal  Structure:  '’opt” .  For  single-skin  tank 
barges  with  a  center  longitudinal  bulkhead,  set  "opt”  to  zero. 
For  single-skin  barges  with  two  equally  spaced  longitudinal 
bulkheads  and  no  stanchions,  set  "opt"  to  two.  Or,  for 
double-bottom  barges  with  center  longitudinal  bulkheads,  set 
"opt"  to  three. 

5.  Maximum  "n"  Value:  "maxn".  See  section  3.2.7  for  an 
explanation  of  the  use  of  the  variable  "n". 


TT) For  more  discussion  concerning  these  variables  see  Section 

3.2.  1. 

(2)  If  a  depth  of  zero  is  inputted,  the  program  "bargtestl" 
will  calculate  the  minimum  freeboard  allowed  by  the  rules 
specified  in  IMCO  (1966)  and  add  this  amount  to  the  draft  to 
obtain  the  depth.  See  Figure  2.8  for  the  rules  used. 
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6.  Output  Format:  "cycle" .  For  a  detailed  summary  of  the 
hull  scantlings  for  the  optimum  barge,  set  "cycle"  to  zero. 
For  an  overall  summary  of  each  case  of  longitudinal  and  trans¬ 
verse  spacing  and  "n"  value  considered,  set  "cycle  to  one. 
Or,  for  an  overall  summary  of  only  the  optimum  system,  set 
"cycle"  to  two. 

Examples  of  the  output  format  types  are  shown  in  Figures 
3. 7-3. 9  for  a  single-skin,  center  longitudinal  bulkhead  tank 
barge  of  dimensions  550  '  x85 . 9^  '  x35 . 81  *  (LxBxT)  (1)  and  block 
coefficient  of  0.8.  In  these  examples,  longitudinal  spacings 
of  1.00-3.25  feet  in  3  inch  increments  and  transverse  spacings 
of  6-10  feet  in  one  foot  increments  are  considered.  Figure 
3.7  shows  the  input  and  the  summary  hullweight/section  modulus 
output  for  the  optimum  barge  ("cycle"=2).  Figure  3.8  shows 
the  detailed  hull  scantlings  output  for  the  same  barge 
("cycle"=0).  And,  figure  3.9  shows  the  complete  summary  hull 
weight/section  modulus  output  for  all  the  different  transverse 
web  spacings,  longitudinal  frame  spacings,  and  "n"  values  con¬ 
sidered  ("cycle"=1). 

3.6.2  Barge  Design  Model  Output:  Tabular  and  Graphical 

The  barge  design  model  was  run  for  barges  of  the  follow- 


(1)  A  barge  depth  of  ^.98'  was  c alcul ated  by  the  program 
"bargtestl"  to  satisfy  the  minimum  freeboard  requirements 
specified  in  IMC0  (1966). 
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ing  size  and  form:  (1) 


Length : 

250 ' -700 

'  by 

75  ' 

increments 

Length-Breadth  Ratio: 

5. 6-8.0 

by 

0.2 

increments 

Breadth-Draft  Ratio: 

2. 2-3.0 

by 

0.2 

increments 

Block  Coefficient 
Single-Skin : 
Double-Bottom  : 

0.75,  0. 
0.80 

80, 

0.85 

Tabular  and  graphical  output  of  the  hull  steel  weight 
for  single-skin,  center  longitudinal  bulkhead  tank  barges  of 
the  above  size  and  form  are  presented  in  Tables  3.9-3.11  and 
Figures  3.10-3.12.  Similary,  tabular  output  of  the  hull  steel 
weight  for  double-bottom,  center  longitudinal  bulkhead  tank 
barges  is  presented  in  Table  3.12.  The  hull  steel  weight 
found  was  the  minimum  for  barges  with  longitudinal  spacings 
ranging  from  1.00-3.25  feet  in  3  inch  increments  and  with 
transverse  web  spacings  ranging  from  5-16  feet  in  one  foot 
increments . 

3.6.3  Regressions  Through  the  Barge  Design  Model  Outputs 

In  order  to  reduce  the  cost  of  running  the  drop-and-swap 
model,  regression  equations  rather  than  calls  to  the 
subprogram  "bargdes"  are  used  to  estimate  barge  hull  steel 
weight  and  length.  These  regressions,  based  on  the 
single-skin  and  double-bottom  tank  barge  runs  described  in  the 

Cl )  Barge  depth  was  d etermined  using  the  loadl ine  rules 
specified  in  Figure  2.8. 
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previous  section,  are  presented  in  Table  3.13.  They  estimate 
barge  hull  steel  weight  and  deadweight  as  a  function  of  barge 
length,  length-breadth  ratio  (L/B) ,  and  breadth-draft  ratio 
(B/T).  They  also  estimate  the  barge  hull  steel  weight  and 
length  as  a  function  of  barge  deadweight,  L/B,  and  B/T.  These 
regressions  are  rather  good,  with  "R-Squared”  values  of  0.999 
or  better.  A  comparison  of  the  hullweight  regression 
(function  of  length,  L/B,  and  B/T)  with  the  barge  design  model 
output  data  is  shown  in  Figures  3.10-3.12.  On  the  graphs,  the 
regression  estimates  are  shown  by  asterisks  while  the  actual 
model  output  data  is  shown  by  the  curves. 

3.6.4  Some  Comments  on  Barge  Design  Model  Output 

After  examining  the  barge  design  model’s  output  for  the 
runs  described  in  Section  3.6.2,  the  following  general 
observations  can  be  made: 


1. 

Single¬ 

■skin  barges  of  less 

than  350’ 

and 

all 

double- 

bottom 

barges  have  bottom  hull 

section  moduli 

signifi- 

cantly 

greater 

than  the  minimum  value 

specified 

by 

the 

ABS 

rules . 

This 

is  because  the  ABS  rules 

pertaining 

to 

the 

sec- 

tion  moduli  of 

the  individual  bottom  members  result 

in 

very 

heavy  bottom  scantlings. 

2.  Generally,  the  optimum  transverse  and  longitudinal 
spacings  of  longer  barges  are  wider  than  for  shorter  barges. 

3.  Barges  of  greater  than  650',  especially  with  large 
depths,  often  result  in  member  scantlings  exceeding  the 
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constraints  specified  in  the  model.  Barges  of  these  forms 
will  probably  need  to  have  a  tank-ship  internal  structure. 
That  is,  they  will  probably  require  two  longitudinal  bulkheads 
to  be  used  to  create  side  tanks  with  very  deep,  built-up  webs. 

4.  The  addition  of  a  double-bottom  increases  the  hull 
steel  weight  of  single-skin  tank  barges  of  lengths  750',  625', 
550’,  ^75’,  4qq»,  325',  and  250’  approximately  1 8% ,  14%,  8$, 
6%,  4% f  1%,  and  0%,  respectively. 

3.6.5  Model  Validation 

It  was  originally  planned  to  validate  the  barge  design 
model  by  comparing  its  estimates  with  the  actual  hull  steel 
weight  values  of  tank  barges  currently  in  operation.  However, 
the  detailed  design  data  necessary  to  accomplish  this  valida¬ 
tion  could  not  be  obtained.  Although  length,  breadth,  draft, 
deadweight,  and  hull  steel  weight  values  for  several 
single-skin  tank  barges  are  available,  the  scantling  length 
and  block  coefficient  values  are  not.  (1)  Unfortunately, 
these  two  data  elements  are  essential  for  validating  and 
calibrating  the  model.  Nevertheless,  a  partial  validation  can 
be  made  by  selecting  values  for  these  variables  that  yield  a 
cargo  deadweight  capacity  equal  to  that  of  the  barge.  This 

(1)  The  scantling  length  is  the  length  used  in  classification 
society  rules  for  the  calculation  of  hull  girder  and  member 
section  moduli.  This  length  depends  on  the  type  of  linkage 
and  depth  of  notch.  See  MARAD  (1979)  for  a  detailed 
explanation . 
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has  been  done  for  four  tank  barges  ranging  from  4?0Q0  to 
40,000  DWT  as  shown  in  Table  3.14.  There  it  is  seen  that  when 
the  length  between  perpendiculars  is  used  for  the  scantling 
length  and  the  block  coefficient  is  adjusted  to  yield  the 
barge  deadweight,  then  the  model  under/overestimates  hull 
steel  weight  by  11/22%.  And  when  a  block  coefficient  of  0.90 
is  used  and  the  hull  scantling  length  is  adjusted  to  yield  the 
barge  deadweight,  then  the  model  under/overestimates  by  21/6%. 

These  results  indicate  that  the  barge  design  model  will 
produce  results  of  sufficient  accuracy  for  the  purpose  of  cost 
estimation  in  the  drop-and-swap  model.  However,  before  its 
results  can  be  trusted  for  preliminary  design  purposes,  it 
should  be  calibrated  and  adjusted  by  comparing  its  hull  steel 
weight  estimates  with  the  actual  hull  steel  weights  of  barges 
for  which  all  particulars  are  known  including  notch  size, 
scantling  length,  block  coefficient,  and  percentage 
lightweight,  high  strength  steel  used  in  its  construction.  (1) 


(1)  The  barge  design  model  assumes  that  the barge  is  totally 
fabricated  out  of  mild  steel.  Therefore,  if  high  strength, 
light  weight  steel  is  used,  then  the  model’s  hull  steel  weight- 
estimate  must  be  reduced  in  proportion  to  the  amount  of  mild 
steel  replaced  by  the  light  weight  steel. 
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4  feet  (1.22  meters)  for  L < 200  feet  (61  meters) 
8  feet  (2.44  meters)  for  L>400  feet  (122  meters) 


(  start  ) 


FIGURE  3.3 
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SUMMARY  FLOWCHART  OE  BARGE  DESIGN 
SUBPROGRAM 
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side 

I 


deck 


FIGURE  3.3... (Continued) 
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FIGURE  3.3.., (Continued) 
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FIGURE  3.4 


FLOWCHART  OF  SUBROUTINE  "smactl" 


FIGURE  3.4. . . (Continued) 


101 


FIGURE  3.4. . . (Continued) 
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FIGURE  3.5 

FLOWCHART  OF  SUBROUTINE  "smact2" 
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smcalc : 


m 


loopl : 


FIGURE  3 . 5 ...  (Continued) 
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FIGURE  3. 5. .. (Continued) 
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LISTING  OF  BARGE  DESIGN  MODEL  INPUT/OUTPUT  PROGRAM  "bargtestl 


*-d 

H 

Q 


U) 


7 

c 
6 
7 
s 
9 
;  n 
1  ’ 
'  J 

1  7 
1  « 


1  6 
7  7 
7  6 
7  9 

?  7 
=  1 


71 

77 

7-9 

70- 

7,  7> 

77 

7-1 

75 

76 

77 
7<i 
->9 
no 
1J7 

4  0 

«7 

uu 

“6 

“7 

u& 

ii9 

50 

51 
02 
S  7 
su 
ss 

56 

57 

58 


bai-gtestl:  proc; 

dc  1  (  1  ,b  ,d  ,t  ,cb .mini onspac  ,max  lonspac  .incrlonspac  .minxvrspac  .maxxvrspac  ,lncrxvrspac,coeff(66),llcoef(66))  de 
del  (min  fbd, fbd, ldfact, slirfact, mind, displ, vol, vol  wt,outfitwt,dwt,m  in  wt  .best  lonspac  .bestxvrspac )  dec  float; 
del  (  cycl  e  .counts  .opt  .minii  ,raaxn  ,bestn)  bin  fixed; 
del  ( sysin  .absfact)  file  stream  Input; 
del  sysprint  file  stream  output; 

ucl  bargdesb  entry (dec  float, dec  float, dec  float, dec  float, dec  float, dec  float, dec  float, dec  float, 

dec  float, dec  float, dec  float.bin  fixed.bin  fixed  ,dim(66)  dec  float, bin  fixed, bin  fixed, dec  float, 
dec  float, dee  float, bin  fixed)  external; 
open  file(absfact)  ti tl e(  "v f il e_  abscoef f  .data" ) ; 
get  file!  absfact)  llst(coeff); 
get  fil e( absfact)  list( llcoef ) ; 
close  file!  absfact) ; 

return : 


put  skip(7)  list("Please  specify  values  for  the  following  variables:"); 
put  skip  1 i st ( "mini onspac  ,  maxlonspac,  incrlonspac:  "); 
put  skip; 

get  1 i st ( mini onspac  , max lonspac .incrlonspac ) ; 

put  skip  1  ist(  "minxvrspac  ,  maxxvrspac,  incrxvrspac:  "); 

put  skip; 

get  1 i 3 1  < minxvrspac .maxxvrspac , i nerx vrspac) ; 
put  skip  1  ist  (  "1  ,b  ,d  ,t  ,cb :  "); 
put  skip; 

get  1  ist(  1  ,b  ,d  ,t  ,cb) ; 

put  skip  list("maxn,  cycle,  opt:"); 

put  skip; 

get  l  ist ( max  n  ,c ycl  e  ,opt ) ; 
minn  -  O; 

put  ski p( 6 )  list!  "LENGTH  BFAM  DEPTH  DRAFT  L/B  B/T  L/D  T/D  HULL-WT  OUTFIT-WT  LT-WT  DISPL  DWT  FRBD  VOLWT"); 
if  1=760.  then  min fbd= 1 lcoef (66 ) ; 
else  do; 

countr: ceil ( ( 1-99. 99999  >/10. ) ; 

mirifbd  =  1  lcoef ( coun tr )  +  ( llcoef ( countr* 1  )-llcoef( countr)  >*(1-90. -10, »c  jntr ) /1 0.  ; 

end; 

minfbd  =  minfbd*(cb  +  o.  681/1.38; 
if  ( 1 /(min fbd/ 1  ?.  +  t))  <  16.  then  do; 

if  1<797.6  then  ldfact  =  (t  +  minfbd/12.  -  1/16. ) «< 1/1 31 . 2)/( 1 -1/ ( 1 2. *  1 31 . 2) ) ; 
else  ldfact  =  (t  ♦  minfbd/12.  -  1/16.  )*4.; 

end ; 


else  Id fac t  =  0 .  ; 

stir f ae t  =  O.03f6»l  *  7.76; 

fbd  s  0.  7S*  ( min  fbd  ♦  ldfact  +  shrfact); 

mind  =  ( t.  *  fbd/  12.); 

if  d  =  n.  then  ibmiiiJ; 

displ  =  l*D»t*cb/36.  : 

call  ba'-gdes6(l,b,d,t,cb,minlonspac,maxl  onspac  .incrlonspac  .minxvrspac  .maxxvrspac  ,incrx  vrspac  ,minn  ,maxn  , 
coef  f  ,cyc  1  e  ,opt  ,minwt  ,bestl onspac  .bestxvrspac  ,bestn) ; 
vol  =  l'b't'  cb  +  l‘b*(d-t)  -  (minwt/490 . ) ; 
vol wt  =  vol /a? .  ; 

outfitwt  =  ((400.  *  (1-290. )*i. 7)  -230. ) »o. 88; 
dwt  =  displ  -minwt  -  outfitwt; 

put  skip  ed  it(  1 ,  b,  d,t,l/b,b/t,  1/d,  t/d,  minwt,  out  fit  wt  ,m  lnwteout  f  i  twt  ,d  ispl  ,d  wt  ,fbd  ,vol  wt) 

(cold  ),f(3),f(8,2),2  f(6,  1),f(4,  1),f(6,2),f(6,1),f(6,2),f(6),x(6),f(4),x(1),f(7),2  f(6  )  ,f  (6 , 2)  ,f  (6  ) ) ; 
if  cycle  =  1  |  cycle=?  then  do; 
put  page; 
go  to  return; 


end; 

end  bargtestl; 


c  float; 
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barg test  1 


Please  specify  values  for  the  following  variables: 
minlonspac,  maxlonspac,  incrlonspac: 

1 . 00, 3.  25, 0. 25, 

uiinxvrspac  ,  maxxvrspac  ,  incrxvrspac: 

5. , 12.  ,  1.  , 

1  ,b  ,d  ,t  ,cb  : 

550.0,85.9375,0. ,35.8073,0.80, 

maxn,  cycle,  opt: 

7,2,0, 


LENGTH  BEAM  DEPTH  DRAFT  L/B  B/T  L/D  T/D  HULL-WT  OUTFIT-WT  LT-WT  DISPL  DWT  FRBD  VOLWT 
550  85.94  45.0  35.8  6.4  2.40  12.2  0.80  5016  539  5555  38685  33130110.08  42560 

\01  4 


FIGURE  3.7 


SAMPLE  INPUT/OUTPUT  OF  THE  BARGE  DESIGN  MODEL:  SUMMARY  OUTPUT  FOR  THE  OPTIMUM  BARGE 


FIGURE  3.8 

EXAMPLE  OF  DETAILED  HULL  SCANTLING  OUTPUT  FROM  BARGE  DESIGN  SUBMODEL 
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bc^gtest  1 


Please  specify  values  for  the  following  variables: 
r.  inionspao  ,  maxlonspac,  incrlonspac: 

?. ?5f  ?. ?5,  1 .  . 

rinxvrspac,  tnaxxvrspac,  incrxvrspac: 

9. ,9. , T.  , 

1  ,  b  ,  d  ,  t  ,  c  b  : 

5r - .  0 , 85 . 9375 , 0 . ,  35 . 8073 , 0 . 80 , 

t.  p  :<  n  ,  cycle,  f  *  pt  :  4 

? »  o  (  n  f 


LENGTH  BEAM  DEPTH  DRAFT  L/B  B/T  1/0  T/D  HULL-WT  OUTFIT-WT  LT-WT  DISPL  DWT  FRBD  VOLWT 
iecgth-SSO  bean:  85.94  depth=44.98  draft=35.81  required  modulus:  5116? 

longitudinal  frame  spacing  =  2 . 25  transverse  web  spacing  =  9.00 

bottom  modulus:  54031  deck  modulus:  51549  estimated  bare  hull  weight:  5016 

summary  of  principal  scantlings 


bottom  shell  -  0.6875  in.  side  shell  -  0.6250  in.  bulkhead  plating  -  0.5625  in.  deck  plate  -  0.8125 
bottom  longitudinals:  flange- 
bottom  transverses:  flange- 
s-ie  longitudinals:  flange- 
side  transverses :  flange- 
fcL’lKfiead  longitudinals:  flange- 
bulKhead  trar»sverses:  flange- 
jeck  longitudinals:  flange- 
deck  transverses:  flange- 
bestn:  2  smreqs  5 .  1 1671 8750e+004 

55n  85.94  45.0  35.8  6.4  2.40  1?.?  0.80  5016* 


5.75 

X 

0.6875; 

web-  13.50 

X 

0.5655 

7.?5 

X 

0.6875; 

web-  35.50 

X 

0.5000 

5.  ?5 

X 

0.6?50; 

web-.  10.00 

X 

0.5000 

?6.75 

X 

0.8750; 

web-  58.50 

X 

0 . 81 ?5 

5. 25 

X 

0. 5655; 

web- 

9.50 

X 

O.D175 

?6.  ?5 

X 

0.8760; 

web-  60.50 

X 

0.8155 

1  .?5 

X 

0.81’5; 

web- 

4 . 00 

X 

0.6875 

1.00  x  0.8125; 


web-  19.25  x  0 . 56?5bestlonspac=.  2 . 250000000e+000  bestxvrspac: 
bestmodbot:  5 . 40309674 6e+004  bestmoddk:  5 • 1548646?6e*004 ; 

539  5555  38685  33130110.08  42560 


9 . 000000000e+0no 


EXAMPLE  OF  COMPLETE  SUMMARY  OUTPUT  FROM 
BARGE  DESIGN  SUBPROGRAM 


berg  t«St  1 


Please  specify  values  for  the  following  variables: 
mlnlonspac,  aaxlonspac,  incrlonspse; 

1.50,?. 75,9. 25, 


mtnxvrspac ,  maxxvrspao,  lncrxvrspao: 

7. ,10., I., 


1  ,b  ,d,t  ,cb: 

550.9,85.9375,0. ,35.8073.0.80, 

maxn,  cycle,  opt : 

0.1.0. 


H 


o 

a 


8 


LJ 

& 


LEKCfH  BUM  Of  PTH  DHAFT  L/B  B/T  L/D  T/D  HULL-WT  OllTF IT-WT  LT-HT  DISH.  DMT  FMD  V0LMT 
length*55h  bean*  85.96  depth*66.98  draft*35.81  required  modulus*  5116T 

longitudinal  frame  spacing  »  1.50  transverse  web  spsclng  a  7. 00 

bottom  Modulus*  58806  deck  modulus*  5???0  estimated  bare  hull  weights  532* 

longitudinal  frame  spacing  a  1.50  transverse  web  spacing  a  7.00 

bottom  Modulus*  5573*  deck  modulus*  51815  estimated  bare  hull  weight*  5233 

longitudinal  IVame  spacing  a  1.50  transverse  web  spacing  ■  7.00 

bottom  modulus*  52528  deck  modulus*  5135?  estimated  bare  hull  weight*  5163 

longitudinal  frame  spacing  ■  1.50  transverse  web  spacing  *  7.00 

bottom  modulus*  5?5?8  deck  modulus*  5135?  estimated  bare  hull  weight*  5163 

long itud  inal  frame  spacing  *  1.50  transverse  web  spacing  a  8.00 

bottom  modulus*  60873  deck  modulus*  52506  estimated  bare  hull  weight*  5?9B 

longitudinal  frame  spacing  =  1.50  transverse  web  spacing  a  8.00 

bottom  modulus*  57763  deck  modulus*  5?  100  estimated  bare  hull  weight*  5??0 

longitudinal  frame  spacing  *  1.50  transverse  web  spacing  *  8.00 

bottom  modulus*  5*383  deck  modulus*  51617  estimated  bare  hull  wei|ht*  5165 

longitudinal  frame  spacing  *  1.50  transverse  web  spacing  *  8.00 

bottom  modulus*  56383  deck  modulus*  51617  estimated  bare  hull  weight*  5165 

longitudinal  frame  spacing  *  1.50  transverse  ueb  spacing  *  9.00 

bottom  modulus*  59656  deck  modulus*  51568  estimated  bare  hull  weight*  5303 

longitudinal  frame  spacing  *  1.50  transverse  web  spacing  *  9.00 

bottom  modulus*  56053  deck  modulus*  51885  estimated  bare  hull  weight*  5265 

longitudinal  f*-a«e  spacing  *  1.50  transverse  web  spacing  *  9.00 

bottom  modulus*  53001  deck  modulus*  5160?  estimated  bare  hull  weight*  5177 

longitudinal  frame  spacing  *  1.50  transverse  web  spacing  *  9.00 

bottom  modulus*  53017  deck  modulus*  51370  estimated  bare  hull  weight*  5187 

longitudinal  frame  spacing  =  1.50  transverse  web  spacing  *  9.00 

bottom  nrhiulua:  63017  deck  modulus*  51  3'/0  osl lmatcd *t>are  hull  weight*  5187 

longitudinal  frame  spacing  *  1.50  transverse  web  spacing  *  10. 0« 

bottom  modulus*  61  398  deck  modulus*  51839  estimated  bare  hull  weight:  5  3*3 


FIGURE  3.9... (Continued) 


longitudinal  rme  spacing  ■  1.50  transverse  web  spacing  *  10.00 

bottom  modulus*  57680  deck  modulus*  51331  estimated  bar*  hull  weight*  5260 

longitudinal  fraaa  spaofng  *  1.50  transverse  web  spacing  *  10.00 

bottom  aoduluss  5*669  deck  modulus*  51617  est lasted  bare  hull  weights  5208 

longitudinal  l>aae  spacing  s  1.50  transverse  web  spacing  *  10.00 

bottom  modulus*  5*669  deck  aoduluss  51617  estimated  bare  hull  weights  5?08 

longitudinal  frame  spacing  »  1.75  transverse  web  spacing  s  7.00 

bottom  modulus:  58103  deck  aoduluss  51608  estimated  bare  hull  weights  5219 

longitudinal  frame  spacing  a  1.75  transverse  web  spacing  s  7.00 

bottom  modulus*  *5130  deck  aoduluss  51758  estimated  bare  hull  weights  5166 

longitudinal  fraae  spacing  =  1.75  transverse  web  spacing  *  7.00 

bottom  modulus:  5203?  deck  modulus:  5130?  estimated  bare  hull  weights  5077 

longitudinal  frame  spacing  *  1.75  transverse  web  spacing  *  7.00 

bottom  modulus:  S?38?  deck  modulus:  53535  estimated  bare  hull  weights  5160 

longitudinal  frame  spacing  s  1.75  transverse  web  spacing  a  7-00 

tntlom  modulus:  5238?  deck  modulus:  53535  estimated  bare  hull  weights  5160 

longitudinal  frame  spacing  a  1.75  transverse  web  spacing  *  8.00 

bottou  modulus:  59377  deck  modulus:  51603  estimated  bare  hull  weights  5?55 

longitudinal  frame  spacing  s  1.75  transverse  web  spacing  s  8.00 

boLlon  noduluSs  56188  duck  modulus:  51177  estimated  bare  hull  weights  5179 

longitudinal  frame  spacing  *  1.75  transverse  web  spacing  *  8.00 

bottom  modulus:  53699  deck  modulus:  51508  estimated  bare  hull  weights  5128 

longitudinal  frame  spacing  »  1.75  transverse  web  spacing  *  8.00 

bottom  modulus:  53873  deck  modulus:  53736  estimated  bare  hull  weights  5189 

longitudinal  frame  spacing  *  1.75  transverse  web  spacing  *  8.00 

bottom  modulus:  53B73  deck  modulus*  53736  estimated  bar*  hull  weights  5189 

longitudinal  frame  spacing  *  1.75  transverse  web  spacing  s  9.00 

bottom  modulus*  61597  deck  modulus:  51583  estimated  bare  hull  weights  5380 

longitudinal  frame  spacing  a  1.75  transverse  web  spacing  »  9.00 

bottom  modulus:  586  17  deck  modulus:  5?106  estimated  bare  hull  weights  53?3 

longitudinal  frame  spacing  a  1.75  transverse  web  spacing  *  9.00 

bottom  modulus:  55028  deck  modulus:  51615  estimated  bare  hull  weights  5251 

longitudinal  frame  spacing  a  1.75  transverse  web  spacing  a  9.00 

bottom  modulus:  51958  deck  modulus:  5183*  estimated  bare  hull  weight*  5195 

longitudinal  frame  spacing  :  1.75  transverse  web  spacing  *  9.00 

bottom  modulus:  52339  deck  modulus*  56096  estimated  bare  hull  weights  5?56 

longitudinal  frame  spacing  a  1.7*  transverse  web  spacing  *  9.00 

bottom  modulus*  5?339  deck  modulus:  560q6  estimated  bare  hull  weight:  5256 

longitudinal  frame  spacing  *  1.75  transverse  web  spaaing  *  10.00 

bottom  modulus:  5987?  deck  modulus:  51373  estimated  bare  hull  weight:  5311 

longitudinal  frame  spacing  :  1.75  transverse  web  spacing  a  10.00 

bottom  modulus:  5987?  deck  modulus*  51  373  estimated  bare  hull  weight:  5311 

longitudinal  frame  spacing  :  ?.00  transverse  web  spacing  s  7.00 

bottom  modulus:  57551  deck  modulus:  51363  estimated  bare  hull  weight:  5268 


longitudinal  frame  spacing  s  2. no  transverse  web  spacing  *  7.00 

Lotto*  modulus*  567?7  deck  modulus*  51601  estimated  bare  hull  weight* 

longitudinal  frame  spacing  ■  ?.oo  transverse  web  spacing  *  7-°n 

bottom  modulus:  51687  deck  modulus*  51755  estimated  ba»-e  hull  weight* 

longitudinal  frame  spacing  :  3.  no  transverse  web  spacing  *  7.ft0 

bottom  modulus*  51956  deck  modulus*  53366  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  2.00  transverse  web  spacing  *  7.00 

bottom  modulus:  51956  deck  modulus*  53366  estimated  bare  hull  weight* 

Aongltudiual  frame  spacing  ■  2.00  transverse  web  spacing  *  8.00 

bottom  modulus*  59?76  deck  modulus*  52163  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  2.00  transverse  web  spacing  *  8.00 

bottom  modulus*  56102  deck  modulus*  51707  estimated  bare  hull  weight: 

longitudinal  frame  spacing  ■  ?.00  transverse  web  spacing  *  8.00 

bottom  modulus*  S3?53  deck  modulus*  51250  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  2.00  transverse  web  spacing  *  8.00 

bottom  modulus*  53?53  deck  modulus*  51250  estimated  bare  hull  weight* 

longitudinal  frame  spacing  •  2. 00  transverse  web  spacing  *  9.00 

bottom  modulus*  606*19  deck  modulus*  51238  estimated  bare  hull  weight* 

longitudinal  frame  spacing  •  ?.00  transverse  web  spacing  *  9*00 

bottom  modulus*  57691  deck  modulus*  52587  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  2.00  transverse  web  spacing  *  9.00 

bottom  modulus*  56706  deck  modulus*  5?  106  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  ?.00  transverse  web  spacing  *  9.00 

bottom  modulus*  51;*30  deck  modulus*  515*7  estimated  bare  hull  weight* 

•  longitudinal  frame  spacing  *  ?.00  transverse  web  spacing  *  9.00 

bottom  modulus*  51530  deck  modulus*  51567  estimated  bare  hull  weight* 

*ongltud!nal  frame  spacing  *  2.00  transverse  web  spacing  *  10.00 

bottom  modulus*  59187  deck  modulus:  5155?  estimated  bare  hull  weight* 

longitudinal  frame  spacing  a  2.00  transverse  web  spacing  *  10.00 
bottom  modulus*  59187  deck  modulus:  5155?  estimated  hare  hull  weight* 

longitudinal  frame  spacing  *  ?.?5  transverse  web  spacing  *  7.00 

bottom  modulus:  57013  deck  modulus:  51561  estimated  bare  hull  weight* 

longitudinal  f'-ame  spacing  r  2.35  transverse  web  spacing  *  7.00 

bottom  modulus*  5*100  deck  modulus:  5169*  estimated  bare  hull  weights 

longitudinal  frame  spacing  *  ?.?5  transverse  web  spacing  *  7.00 

bottom  modulus:  56100  deck  modulus*  51696  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  ?.?5  transverse  web  spacing  *  8.00 

bottom  modulus*  58339  deck  modulus*  5)673  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  2.25  transverse  web  spacing  =  8.00 

bottom  modulus:  55638  deck  modulus*  51263  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  2.25  transverse  web  spacing  *  8.00 

bottom  modulus:  52567  deck  modulus*  51330  estimated  bare  hull  weight* 

longitudinal  frame  spacing  *  2.25  transverse  web  spacing  *  8.00 

bottom  modulus*  52976  deck  modulus*  5  3630  estimated  bare  hull  weight* 


5176 

5120 

5169 

5169 

5206 

5123 

5059 

5059 

520? 

5167 

5103 

5035 

5035 

5302 

530? 

5289 

5212 

5212 

5180 

5109 

5051 

5116 


FIGURE  3.9... (Continued) 


.ongltudinol  frame  spacing  *  ?.?5  transverse  web  spacing  a  8.00 

b^tt «•  modulus?  52976  deck  modulus?  51630  estimated  bar*  hull  weights 

longitudinal  fraaa  spacing  *  2. ?*  transverse  web  spacing  ■  9.00 

bottom  modulus  a  60320  deck  modulus?  52*19  estimated  bar*  hull  weights 

longitudinal  fraae  spacing  a  2.25  transverse  web  spacing  a  9.00 
bottom  modulus*  57036  deck  modulus?  52039  *stlaat*d  bar*  hull  w«lghta 

longitudinal  fraa*  spacing  ?  2.25  transverse  web  spacing  a  9.00 

bottom  modulus?  59031  deck  modulus?  515«9  estiaated  bar*  hull  weight* 

longitudinal  fraae  spacing  s  2.25  transverse  web  spacing  a  9.00 
bottom  modulus?  5*031  deck  modulus?  51*49  estimated  bare  hull  weight? 

longitudinal  f'-ane  spacing  a  2.25  transverse  web  spacing  ?  I0.no 
bottom  modulus?  *8471  *  deck  modulus?  51298  estimated  bare  hull  weights 

longitudinal  f'-ume  spacing  «  2.25  trunsverse  web  spacing  ?  10.00 

bottom  modulus?  **071  deck  modulus?  51276  estimated  bar*  hull  weights 

longitudinal  frame  spacing  a  2.25  transverse  web  spacing  a  10.00 
bottom  modulus?  55071  deck  modulus?  51276  estimated  bare  hull  weights 

longitudinal  frame  spacing  ?  2.50  transverse  web  spacing  a  7.00 

bottom  modulus?  *6693  deck  modulus?  51494  estimated  bare  hull  weight? 

longitudinal  frame  spacing  a  2.50  transverse  web  spacing  ?  7.00 

bottom  modulus?  53606  deck  modulus?  51**1  estiaated  bare  hull  weights 

longitudinal  fraae  spacing  ?  2.*0  transverse  web  spacing  ?  7.00 

bottom  modulus?  *3806  deck  modulus?  51*51  estiaated  bare  hull  weight? 

longitudinal  frame  spacing  ?  2.50  transverse  web  spacing  a  8.00 

boLtoa  modulus?  58)9)  deck  modulus?  52170  estiaated  bare  hull  weighta 

• 

longitudinal  frame  spacing  ?  2.50  transverae  web  spacing  ?  8.00 

bottom  modulus?  553*0  deck  modulus?  5170?  estimated  bare  hull  weighta 

longitudinal  frame  spacing  ?  2.50  transverse  web  spacing  *  8.00 

bottom  modulus?  522*0  deck  modulus?  51678  estimated  bare  hull  weight? 

longitudinal  frame  spacing  a  2.50  transverse  web  spacing  ?  8.00 

bottom  modulus?  *2*68  deck  modulus?  *3466  estimated  bare  hull  weight? 

longitudinal  frame  spacing  ?  2.50  transverae  web  spacing  ?  8.00 

bottom  modulus?  *2568  deck  modulus?  53*66  estimated  bare  hull  weights 

longitudinal  frame  spacing  ?  2.50  transverse  web  spacing  ?  9.00 

bottom  modulus?  59735  deck  modulus?  52807  estimated  bare  hull  weight? 

longitudinal  frame  spacing  ?  2.50  transverse  web  spacing  ?  9.00 

bottom  mooulus?  5687*  deck  modulus?  5?3*8  estimated  bare  hull  weight? 

longitudinal  frame  spacing  ?  2.50  transverse  web  spacing  ?  9.00 

bottom  modulus?  535)*  deck  modulus?  *1799  estimated  bare  hull  weight? 

longitudinal  frame  spacing  a  2.50  transverse  web  spacing  ?  9.00 

bottom  modulus?  53*3*  deck  modulus?  *1799  estimated  b^re  hull  weight? 

longitudinal  frame  spacing  =  2. *0  transverse  web  spacing  ?  10. nn 

bottom  modulus?  *77)0  deck  modulus?  51)66  estimated  bare  hull  weight? 

longitudinal  frame  spacing  ?  ?.*0  transverse  web  spacing  s  10.00 

bottom  modulus?  5*72*  deck  modulus?  51)17  estimated  bare  hull  weight? 


511* 

5169 

5086 

5016 

5016 

52*0 

5200 

5200 

5299 

5220 

5220 

5219 

51*0 

5080 

5132 

5132 

5191 
51 16 

504? 

504? 

51)0 

*076 


FIGURE  3.9. . . (Continued) • 


2  i.tul  inal  frame  spacing  *  2.  ho  transverse  wnb  spacing 

L' 1 1 #,'.i  :.i ■  -i ij l  us:  5H976  deck  modulus:  53<tMi  estimated  bare 

io-..- itui  inal  frame  spacing  :  2.50  transverse  wob  spacing 

t^ttoa  modulus:  5#V/6  deck  modulus:  53ilU<l  estimated  bare 

lorigitu i  inal  frame  spacing  :  2.75  transverse  web  spacing 

triton  modulus:  5 6646  deck  modulus:  51234  estimated  bare 

lor ituj inal  frame  spacing  :  2.75  transverse  web  spacing 

bottom  modulus:  53737  deck  modulus:  51237  estimated  bare 

longitudinal  f>-ame  spacing  :  ?.7‘>  transverse  web  spacing 

bottom  modulus:  53737  deck  modulus:  51237  estimated  bare 

longitudinal  frame  spacing  =  2 . 75  transverse  web  spacing 

bottom  modulus:  57897  deck  modulus:  51889  estimated  bare 

longitudinal  frame  spacing  =  ?.75  transverse  web  spacing 

bottom  modulus:  5W 807  deck  modulus:  51905  estimated  bare 

longitudinal  frame  spacing  :  2 . 75  transverse  web  spacing 

bottom  modulus:  52031  deck  modulus:  51375  estimated  bare 

longitudinal  frame  spacing  :  2.75  transverse  web  spacing 

bottom  modulus:  52058  deck  modulus:  537?1  estimated  bare 

longitudinal  frame  spacing  :  2.75  transverse  web  spacing 

bottom  modulus:  52058  deck  modulus:  53721  estimated  bare 

longitudinal  frame  spacing  :  2.75  transverse  web  spacing 

bottom  modulus:  59115  deck  modulus:  51281  estimated  bare 

longitudinal  frame  spacing  :  2.75  transverse  web  spacing 

bottom  modulus:  56185  deck  modulus:  52003  estimated  bare 

longitudinal  frame  spacing  =  2.75  transverse  web  spacing 

bottom  modulus:  53270  deck  modulus:  51098  estimated  bare 

longitudinal  frame  spacing  :  2.75  transverse  web  spacing 

bottom  modulus:  53?70  deck  modulus:  51098  estimated  bare 

longitudinal  frame  spacing  :  2.75  transverse  web  spacing 

bottom  modulus:  57320  deck  modulus:  51356  estimated  bare 


:  10.00 
hull  weights 

5111 

s  10.00 
hull  weights 

5111 

s  7.00 
hull  weights 

53?5 

:  7.00 
hull  weights 

5245 

s  7. 00 
hull  weights 

■5245 

s  8 . 00 
hull  weights 

5218 

s  8.00 
hull  weights. 

5136 

s  8.00 
hull  weights 

5086 

s  8.00 
hull  weights 

5151 

s  8.00 
hull  weights 

5151 

s  9.00 
hull  weights 

5178 

s  9.00 
hull  weights 

5127 

s  9.00 
hull  weights 

5081 

s  9.00 
hull  weights 

5081 

s  10.00 
hull  weights 

5110 

longitudinal  frame  spacing  :  2.75  transverse  web  spacing  x  10.00 

bottom  modulus:  57320  deck  modulus:  51356  estimated  bare  hull  weights  5110  bestlonspac:  2. 250000000e+000 
9.009000000e*000  bestns  ?  smreqs  5. 1l67l8750e+004  bestmodbot:  5.403096746e+004  bestmoddk. 

550  85.94  05.0  35.8  6.4  2.40  12.2  0.80  5016  539  5555  38685  33130110.08  42560 

\010 


bestxvrspac: 

5. 1548606?6e*000 
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FT 


FIGURE  3.10 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 
FOR  Cb=0.75  AND  B/T=2.2 
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FIGURE  3.10 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 
FOR  C  =0.75  AND  B/T=2.4 

Jj 
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FIGURE  3.10 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 
FOR  C  =0.75  AND  B/T=2.6 
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FIGURE  3.10 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 
FOR  Cb=0.75  AND  B/T=2.8 
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FIGURE  3.10 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 
FOR  C  =0.75  AND  B/T=3.0 
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FIGURE  3.11 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 

FOR  C  =0.80  AND  B/T=2.2 
5 
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FIGURE  3.11 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 

FOR  C  =0.80  AND  B/T=2.4 
B 
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FIGURE  3.11 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 
FOR  C  =0.80  AND  B/T=2.8 

B 
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FIGURE  3.11 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 
FOR  C  =0.80  AND  B/T=3.0 

D 
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FOR  C  =0.85  AND  B/T=2.2 
B 


300  400  500  ':0O 


FT 


FIGURE  3.12 

PLOT  OF  BARGE  HULL  STEEL  WEIGHT  VS.  BARGE  SCANTLING  LENGTH 

FOR  C  =0. 85  AND  B/T=2.8 
B 
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TABLE  3.1 


VALUES  OF  "FACT" 


Barge  Length 

(Meters) 

■' 1  -  11  1 

1 

j 

"Fact"  1 

Barge  Length 

(Meters) 

"Fact" 

30 

42.6 

130 

1661.0 

35 

56.0 

135 

1808.8  | 

40 

73.3 

140 

1961.6 

45 

95.4 

145 

2123.6  I 

50 

120.5 

150 

2292.9 

55 

151.9 

155 

2467.7 

60 

185.1 

160 

2650.8 

65 

228.4 

165 

2848.6  j 

70 

278.3 

170 

3049.7  I 

75 

338.0 

175 

3269.1 

80 

419.1 

180 

3504.6  1 

85 

540.4 

185 

3741.9 

90 

666.6 

190 

3993.9 

95 

787.2 

195 

4241.6 

100 

914.2 

;  200 

i 

4499.4 

105 

1029.0 

205 

4767.3 

110 

1141.2 

210 

5058.9 

115 

1261.2 

215 

5348.8 

120 

1385.9 

220 

5640.9 

125 

1523.5 

225 

5953.2 

2  30 

6269.5 
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TABLE  3.1... (Continued) 


VALUES  OF  "FACT" 


Barge  Length 

(Feet) 

i 

"Fact" 

Barge  Length 

(Feet) 

"Fact" 

Barge  Length 

(Feet) 

i 

1 

"Fact" 

1 

100 

6.8 

320 

132.0 

540 

439.0 

110 

8.1 

330 

144.0 

550 

458.0 

120 

9.3 

340 

155.0 

560 

477.0  | 

130 

11.2 

350 

165.0 

570 

498.0 

140 

13.1 

360 

176.0 

580 

519.0 

i 

150 

15.3 

370 

186.0 

590 

542.0  | 

160 

17.5 

380 

199.0 

600 

564.0 

170 

20.4 

390 

210.0 

610 

587.0 

180 

23.4 

400 

223.0 

620 

611.0 

190 

26.5 

410 

236.0 

630 

635.0 

200 

29.7 

420 

249.0 

640 

658.0 

210 

34.0 

430 

262.0 

650 

682.0 

220 

38.3 

440 

276.0 

660 

707.0 

230 

43.3 

450 

291.0 

670 

732.0 

240 

48.2 

460 

305.0 

680 

759.0 

|  250 

55.1 

470 

320.0 

690 

i 

1 

787.0 

260 

62.0 

480 

336.0 

700 

814.0  ! 

270 

74.0 

490 

352.0 

710 

842.0 

280 

85.0 

500 

368.0 

720 

869.0 

290 

97.0 

|  510 

385.0 

730 

899.0 

300 

109.0 

520 

402.0 

740 

928.0 

310 

i 

120.0 

!  530 

420.0 

750 

958.0 

Source:  American  Bureau  of  Shipping,  Rule  for  Building  and  Classing 
Steel  Barges  for  Offshore  Service,  1973,  Table  3.2 
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TABLE 


3.2 


DEPTH  OF  LONGITUDINAL  BULKHEAD  AND  SIDE  GIRDERS 
AND  TOTAL  NUMBER  OF  STANCHIONS  INSERTED  BETWEEN  SIDES 


"b" 

Barge  Molded  Breadth 

Depth  of  Longitudinal 
Bulkhead  and  Side  Girders 

Total  No.  of  Stanchions 
Inserted  Between  Sides 

<  35' 

5’ 

0 

35* -  67* 

7’ 

2 

67*-  99* 

9* 

4 

>  99* 

11* 

6 
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TABLE  3. 3 


MINIHUM  PLATE  THICKNESS 


. L  — • — * — 1 - 1 - - 

- i - - - - 

Plate  Type 

Applicable 

Rule 

Minimum  Thickness  Calculation 
(mm  and  inches) 

Valid  Range 
for  Equation 

Bottom 

ABS<1973) 

"botplt"=0 . 0463x"l“+0 . 007xs+l . 7sra 

"1*<.  122m 

para. 4. 3.  3 

-0 . 0833x“l  "+0. 01xs-5 . 1  mm 

122<"1’<  228.5m 

"botplt "=0 . 000555x“l “+0 . 007xb+0 .067  ir 

"1"<^  400  ft 

-0.001xMl“+0.01  xs-0.2  in 

400  <"1'V  750  ft 

Side 

.  ABS (1973) 

Msidplt,,=0.06347xMlH+0.0075xsmm 

"1"<  152.5m 

para  4.3.1 

=0.02706x’,lM+0.01xs  f 3 . 86mm 

152. 5<**1,,<220. 5ra 

"sidplt"=0.00082x"l',+0.0075xa,in 

"1H<500  ft 

-0.00035x"l"+0. 01x9+0. 152  in 

500<H1*'<_  750  ft 

Deck 

ABS (1973) 

"dkplt"  -O.Olxs  +  1.8mm 

s  <  711mm 

para  5.1.1 

*0 . 0064 3x  s+4 . 3rran 

711  <  s<  1016mm 

“dkplt*  -  0.01x9+0.07  in 

s  ^  28  in 

=  0.00643xs+0. 17  in 

28  <  s  <  40  in 

Longitudinal 

Bulkhead 

ABS  (1973) 

para  9.9.1 

"bhdplf  -  +  2.5mm 

254 

h="d“+l. 22-“dbdep“ 

"bhclplt"**  ~~  ♦  0.  loin 

400 

h»"d"+4-"dbdep“ 

Notes:  s:  longitudinal  frame  spacing  (12x"lonspac") 

h:  bulkhead  plate  head;  the  distance  from  the  lower  edge  of  longitudinal  bulkhead 

plating  to  4'  (1.22m)  above  the  deck 


TABLE  3. 4 

MINIMUM  REQUIRED  SECTION  MODULI 
FOR  LONGITUDINAL  FRAMES 

Longitudinal  frames  must  have  section  moduli  "secmodx" 
greater  than  the  value  obtained  from  the  formulae: 

2  3 

"secmodx"  =7.9xcxhxsxl  cm 

or 

2  3 

"secmodx"  "=»  0.0041  xcxhxsxl  in 

where  the  appropriate  values  of  x,c,h,s  and  1  are  found  in 
the  table  below: 


Frame  Type 

Applicable  Rule 

X 

c 

h* 

s 

1 

Bottom 

ABS (1973) 

1 

1.34 

"hi" 

1 

"xvrspac" 

para  6.15.1 

1 

Side 

ABS (1973) 

3 

1.25 

"h2 "** 

II 

It 

para  6.15.1 

Deck 

ABS (1973) 

5 

1.25 

"h3  " 

II 

II 

para  6.15.1 

Longitudinal 

ABS (1973) 

B 

1.00 

"h2  "** 

II 

II 

Bulkhead 

para  9.9.2 

■ 

Double- 

ABS (1973) 

9 

1.00 

"h5" 

II 

It 

Bottom 

para  6.19.2 

*h:  head  of  the  associated  member  as 
shown  in  Figures  3.1  and  3.2 

**"h2 " :  Average  head  experienced  by  side/bulkhead 
members.  It  was  used  since  the  required 
and  calculated  section  moduli  are  both 
linear  with  respect  to  head 

***:  C-value  for  bottom  longitudinals  when  double 
bottom  is  installed 
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TABLE 


3.5 


MINIMUM  REQUIRED  SECTION  MODULI 
FOR  TRANSVERSE  GIRDERS 

Transverse  girders  must  have  section  moduli  "secmodx" 
greater  than  the  value  obtained  from  the  formulae: 

"secmodx"  =4.74xcxhxsxl^  cm^ 

"secmodx"  =  0.0025  xcxhxsxl^  in^ 


where  the  appropriate  values  of  x,c,h,s  and  1  are  found  in  the 
table  below: 


Girder  Type 

Applicable 

Rule 

X 

c 

s 

1** 

Bottom 

ABS (1973) 

para  6.15.2 

2 

1.75 

"hi" 

"xvrspac" 

"12" 

Side  *. 

ABS (1973) 

para  6.15.2 

4 

1.75 

"h2  " 

M 

"14" 

Deck 

ABS (1973) 

para  6.15.2 

6 

o 

o 

• 

CM 

"h3" 

If 

"12" 

Longitudinal 

Bulkhead 

ABS (1973) 

para  9.9.3 

8 

1.50 

"h2" 

II 

"14" 

*h:  head  of  the  associated  member  as  shown 
in  Figures  3.1  and  3.2 
**"1" :  the  unsupported  span  of  the  girder  as 

previously  calculated  in  Section  3.2.3 
and  shown  in  Figures  3.1  and  3.2 
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TABLE  3.6 

TRANSVERSE  MEMBER  WEIGHT  PER  LONGITUDINAL  FOOT  CALCULATIONS 


Weight  Per  Longitudinal  Foot 
Program  Variable 


Bottom  Transverse  Girder  "xvrsl 


1  Foot  =  [steel  Volume]  x 


area*  ...  M  f  3.4 

„  x  b  x  \- — - ^ 

J  ["xvrspac 


Longitudinal  Weight  2 
Per  Foot  Factor  -  lb/in  -ft 


Side  Transverse  Girders (2)  |  "xvrs2"  = 


Deck  Transverse  Girder  :  "xvrs3 


Longitudinal  Bulkhead  ;  ••  xvrS4' 

Transverse  Girder 


Transverse  Bulkhead  „  C1 

xvrs5 

Plating  i 


Transverse  Bulkhead 
Longitudinal  Stiffeners 


cross  sectional  area* 
of  member-"area4M 


„  ...  |  fcross-sectional  area*  ...  „  |  f  3.4  } 

"xvrsl"  «  I  .  .  .  „  „  x  b  x  - - «| 

I [of  member-"area  )  _|  ["xvrspac  j 

"xvrs2"  =  (2  x  fcross  sectional  area*)  ( _  ^dbdep^l  f _ 3^4 _ 

!  (_  [of  member-”area4"  )  [  12  J  ["xvrspac" 

..  I  fcross  sectional  area*!  M.  J]  _  (  3.4  } 

XVrS  jjof  member-" are a6H  X  J  ["xvrspac" j 


;  " vvrs4"  =  F fcross  sectional  area*)  [  „  _  ^dg£^|l  f _ 3J[ _ _ 

[_[of  member- "area6"  J  [  12  |J  ["xvrspac" 


|  "xvrs5"  =  [m  v  r.  x  ("b"  x  "d" - x  "bhdplt"|~|  x  — — — ^7 

j  4  [[ntrbkd  [  12  JJ  ["xvrspac" 


j  .  "dbdep1*  -j 

;  „  f  1 _  „  f _ 12  )  fcross  sectional  area))  (  3.4  _ ) 

|  xvrs  ["ntrbkd"**  X  (  X  ["lonspac" ***J  X  [of  member-"area7"*  j  JJ  X  ["xvrspac"] 


(number  of  stanchions 


"xvrs7"  =  I  per  transverse  girder]  x 


[cross  sectional  areal  [length  of 


[of  stanchion"astans"J  [stanchion 


Stanchions 


j  radius  of  the 

J  where  "astan"  ~  Tl  x  cylindrical  shaped 
J  stanchion**** 

*  Cross  sectional  areas  of  members  are  obtained  from  scantlings  calculated  in  "smact2". 

**  "ntrbkd"  is  the  number  of  transverse  girders  between  each  transverse  bulkhead. 


12 

"lonspac" 


is  the  number  of  stiffeners  attached  to  the  transverse  bulkhead  plate. 


****  Tne  radius  of  the  stanchion  was  determined  by  equating  the  minimum  stanchion  load  equations  found  in  ABS  (1973, 
par.  6.7.2  and  Figure  (6)).  Specifically, 


■  - 


12"  x  "h"  x  "xvrspac1 


„  /[1.232  -  0.00452  ri4"/r)  ]mr2  /  (MT)) 

“  "  =  \[7.83  -  0.345  (',14"/r)]*r2|  <LT) / 


where  r  is  radius  of  stanchion  and  "12",  "14",  "h",  "xvrspac"  are  as  shown  in  Figures  3.1  and  3,2, 


TABLE  3.7 


INITIAL  SCANTLING  VALUES  USED  TN  SUBROUTINE  "smact2" 


Dimension 


Plate  thickness 


Plate  depth 


eb  thickness 


Flange  width 


Initial  Value 


as  specified  in  input  "tp" 


as  specified  in  input  "s" 


ABS  (1978) 1 
Table  22.3  I 


the  larger  of: 
(l)/0. 34"  for 


"1"  <  200‘ 


ABS  (1973) 
para  9.9.3c 


reasonable 

assumption 


0.34"  +  ("l*1  -  200) / 3500 

for  200'  <  "1"  •  <  270' 

0. 36M  +  ("l"  -  270)/3000 
for  270'  <  "1"  <  700 

0.50" for  700*  <  "1” 

for  deck,  bottom,  and  side  girders 
or 

the  smaller  of: 

(a)  0.44" 

and  (b)  0.12"  +  "webdepth” 1 


-easonable 

minimum 


Horne (1958) 


Flange  thickness 


for  longitudinal  bulkhead  girder 


(2)  /plate  thickness  for  plate  thicker  j 
I  than  5/8" 

{ 

lplate  thickenss  less  1/4”  for  plate 
(thinner  than  5/8" 

and  then  rounded  up  to  nearest  1/16" 


the  smaller  of: 

(1)  web  depth/ 5 

and: 

(2)  20  x  web  thickness 
rounded  up  to  the  nearest  1/4" 


plate  thickness 


(reasonable  J 
(assumption  j 


TABLE 


3.8 


DOUBLE  BOTTOM  PARTICULARS 


Member 

Applicable 

Rule 

Minimum  Dimensions 

(Metric  and  English  units)  i 

Doub 1 e -Bo t tom 
Depth 

ABS (1978) 
para  7.3.2 

"dbdep"  =  0.384  x  "b"  +  4.13At"  m 

=  32  x  "b"  +  190  /"t77  ft 

t 

Double-Bottom 
Plate  Thickness 

ABS (1978) 
para  7 . 5 

"dbplt "  =  0.037  x  "1"  +  0.009  x  s  0.5  mm 

1 

=  0.000445  x  "1"+  0.009xs+0.02  in 
where  s=  12  x  "lonspac" 

Double-Bottom 
Center  Girder 
Plate  Thickness 

ABS  (1978) 

para  7.3.2 

"cendbgirdth"  =  0.056  x  "1"  +  5.5  mm 

=  0.00067  x  "1"  +  0.22  in 

Double-Bottom 
Side  Girder 
and  Floor 

Plate  Thickness 

ABS (1978 ) 
para  7.3.4. 

"sidbgirdth"  =  0.036  x  "1"  +  4.7  mm 

=  0.00043  x  "1"  +  0.24  in 

Double-Bottom 

Head 

ABS (1973) 
para  6.19 . 2 

"h5"  =  "d"-"dbdep"+i 1 ' 2192  "l"<60.96m  \ 

,  \  a  anaep  ',„1„/50  60 . 96<  "1,,<121. 92 

(meters)  \  —  —  j. 

(2.4384  121.92  <"1"  j 

'  4  "1"<  200  '; 

"h5 "  =  "d"-"dbdep"  +  <("l"/50  200<"1"<  400  'V 
(feet)  \8  400<  "1") 

Double-Bottom 

Longitudinal 

Frame 

Section  Modulus 

ABS  (1973) 
para  6.19.2 

* 

max  ("secmod9"  ,  0.85  x  "secmodl"*) 

*"secmod9"  and  "secmodl"  values  determined 
from  expressions  found  in  Table  3.4 
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TABLE  3 . 9 


SINGLE- 

-SKIN  TANK 

BARGE  HULL 

WEIGHTS 

FOR  CB 

=  0.75 

B/T 

L/B 

BARGE  LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

472 

1061 

2107 

3763 

6156 

9946 

14723 

5.8 

452 

992 

1987 

3542 

5768 

9317 

13771 

6.0 

431 

942 

1873 

3357 

5524 

8785 

12994 

6.2 

412 

907 

1785 

3193 

5214 

8502 

12368 

6.4 

396 

868 

1735 

3057 

4956 

7736 

11811 

6.6 

380 

829 

1651 

2957 

4787 

7458 

11228 

2.2 

6.8 

364 

802 

1584 

2848 

4600 

7194 

10883 

7.0 

351 

771 

1519 

2730 

4428 

6903 

10353 

7.2 

360 

754 

1478 

2592 

4289 

6691 

9796 

7.4 

346 

728 

1446 

2521 

4178 

6457 

9492 

7.6 

335 

704 

1395 

2456 

4007 

6302 

9188 

7.8 

321 

689 

1377 

2364 

3914 

6106 

8954 

8.0 

307 

672 

1337 

2298 

3825 

5906 

8705 

5.6 

447 

983 

1960 

3443 

5660 

9056 

13358 

5.8 

427 

936 

1861 

3295 

5345 

8542 

12774 

6.0 

406 

891 

1774 

3164 

5188 

8144 

12021 

6.2 

389 

858 

1701 

3030 

4918 

7762 

11570 

j 

6.4 

374 

818 

1640 

2907 

4717 

7337 

11062 

j 

6.6 

360 

800 

1592 

2810 

4581 

7113 

10633 

2.4 

6.8 

347 

769 

1526 

2701 

4382 

6808 

10235 

7.0 

335 

748 

1482 

2628 

4239 

6678 

9937 

7.2 

344 

727 

1450 

2513 

4106 

6429 

9441 

7.4 

329 

704 

1402 

2439 

4003 

6226 

9145 

7.6 

316 

686 

1376 

2349 

3892 

6056 

8929 

7.8 

302 

676 

1328 

2318 

3779 

5888 

8710 

8.0 

293 

660 

1304 

2275 

3696 

5762 

8469 

138 


TABLE  3.9  —Continued 


SINGLE- 

SKIN  TANK 

BARGE 

HULL  WEIGHTS 

FOR  CB 

=  0.75 

L/B 

BARGE 

LENGTH  (FT) 

■ 

250 

325 

400 

475 

550 

625 

700 

. 

5.6 

423 

937 

1853 

3289 

5345 

8461 

12591 

5.8 

406 

895 

1792 

3160 

5090 

8075 

11968 

6.0 

389 

861 

1714 

3026 

4860 

7778 

11422 

6.2 

372 

831 

1649 

2900 

4703 

7419 

10952 

6.4 

358 

801 

1595 

2804 

4521 

7145 

10584 

6.6 

346 

776 

1551 

2725 

4404 

6892 

10224 

2.6 

6.8 

327 

753 

1494 

2618 

4260 

6615 

9890 

7.0 

315 

738 

1460 

2530 

4121 

6433 

9607 

7.2 

326 

717 

1417 

2458 

4008 

6275 

9230 

7.4 

315 

706 

1378 

2412 

3900 

6091 

8993 

7.6 

304 

•687 

1345 

2347 

3800 

5930 

8728 

7.8 

291 

669 

1305 

2290 

3735 

5770 

8519 

8.0 

282 

653 

1289 

2253 

3631 

5663 

8323 

5.6 

407 

908 

1795 

3158 

5138 

8129 

11909 

5.8 

390 

872 

1732 

3050 

4917 

7852 

11432 

6.0 

374 

835 

1678 

2919 

4755 

7512 

11018 

6.2 

358 

813 

1619 

2809 

4581 

7257 

10601 

6.4 

338 

796 

1572 

2705 

4423 

6933 

10238 

6. 6 

325 

768 

1502 

2647 

4304 

6678 

9991 

2.8 

6.8 

313 

759 

1490 

2572 

4165 

6518 

9641 

7.0 

302 

733 

1433 

2515 

4055 

6337 

9378 

7.2 

316 

712 

1406 

2443 

3930 

6128 

9079 

7.4 

305 

693 

1368 

2408 

3815 

6001 

8857 

7.6 

295 

699 

1333 

2343 

3742 

5847 

8664 

7.8 

282 

686 

1314 

2287 

3651 

5696 

8453 

8.0 

273 

666 

1273 

2258 

3590 

5573 

8280 

139 


TABLE  3 . 9  — Continued 


SINGLE- 

SKIN  TANK 

BARGE  HULL  WEIGHTS  FOR 

CB  = 

0.75 

B/T 

L/B 

BARGE 

LENGTH  (FT) 

■ 

250 

325 

400 

475 

550 

625 

700 

5.6 

395 

887 

1761 

3096 

4981 

7908 

11541 

5.8 

370 

854 

1699 

2944 

4822 

7592 

11100 

6.0 

354 

835 

1634 

2853 

4657 

7289 

10794 

339 

803 

1594 

2746 

4515 

7099 

10429 

326 

796 

1545 

2698 

4366 

6810 

10097 

314 

768 

1501 

2607 

4230 

6604 

9799 

3.0 

6.8 

302 

745 

1472 

2551 

4112 

6460 

9503 

7.0 

289 

750 

1430 

2487 

4021 

6300 

9298 

IT? 

308 

736 

1393 

2433 

3897 

6086 

9045 

H 

298 

711 

1355 

2405 

3828 

5944 

8760 

291 

694 

1345 

2347 

3752 

5796 

8611 

H 

281 

684 

1316 

2314 

3688 

5667 

8424 

8.0 

275 

669 

1299 

2258 

3617 

5556 

8253 

TABLE  3.10 


SINGLE- 

SKIN  TANK 

BARGE 

HULL  WEIGHTS 

FOR  CB 

=  0.80 

B/T 

L/B 

BARGE 

LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

473 

1064 

2122 

3793 

6223 

10076 

14948 

5.8 

452 

996 

2012 

3630 

6016 

9666 

14434 

6.0 

432 

961 

1894 

3384 

5547 

8976 

13262 

6.2 

413 

909 

1820 

3250 

5317 

8530 

12652 

6.4 

397 

870 

1737 

3138 

5115 

7917 

12002 

6.6 

382 

835 

1669 

3003 

4875 

7558 

11620 

2.2 

6.8 

365 

809 

1624 

2893 

4702 

7307 

11039 

7.0 

352 

786 

1549 

2789 

4512 

7039 

10701 

7.2 

361 

757 

1505 

2645 

4404 

6883 

10120 

7.4 

347 

738 

1471 

2586 

4243 

6651 

9771 

7.6 

335 

714 

1436 

2499 

4103 

6408 

9453 

7.8 

321 

696 

1397 

2404 

3992 

6243 

9177 

8.0 

308 

679 

1362 

2349 

3891 

6056 

8917 

5 . 6 

448 

996 

1989 

3504 

5748 

9254 

13653 

5.8 

428 

94  3 

1885 

3365 

5435 

8724 

12952 

6.0 

407 

903 

1792 

3206 

5201 

8259 

12328 

6.2 

339 

873 

1737 

3087 

5003 

8036 

11853 

6.4 

374 

842 

1673 

2972 

4812 

7491 

11332 

6 . 6 

360 

805 

1623 

2890 

4661 

7298 

10866 

2.4 

6.8 

348 

779 

1559 

2755 

4461 

6962 

10462 

7.0 

336 

756 

1519 

2679 

4320 

6772 

10254 

7.2 

344 

734 

1468 

2551 

4198 

6618 

9800 

7.4 

329 

725 

1431 

2488 

4089 

6359 

9427 

7.6 

317 

705 

1389 

2417 

3989 

6203 

9185 

7.8 

303 

695 

1363 

2367 

3871 

6072 

8895 

8.0 

294 

680 

1329 

2330 

3791 

5871 

8673 

141 


TABLE  3.10  —Continued 


SINGLE- 

SKIN  TANK 

BARGE 

HULL  WEIGHTS 

FOR  CB  = 

0.80 

— 

B/T 

L/B 

BARGE 

LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

427 

952 

1898 

3343 

5457 

8660 

12770 

5.8 

406 

916 

18  32 

3208 

5201 

8250 

12260 

6.0 

389 

871 

1744 

3070 

4966 

7897 

11704 

6.2 

373 

842 

1684 

2951 

4785 

7638 

11262 

6.4 

359 

809 

1629 

2863 

4648 

7250 

10936 

6.6 

346 

784 

1575 

2770 

4477 

7096 

10612 

2.6 

6.8 

328 

771 

1516 

2667 

4384 

6809 

10149 

7.0 

316 

745 

1479 

2596 

4259 

6597 

9861 

7.2 

326 

745 

1450 

2500 

4100 

6405 

9485 

7.4 

315 

720 

1401 

2466 

3991 

6282 

9221 

7.6 

305 

700 

1376 

2415 

3902 

6088 

9002 

7.8 

292 

691 

1350 

2367 

3835 

5915 

8735 

8.0 

283 

680 

1305 

2303 

3738 

5780 

8523 

5.6 

408 

920 

1829 

3224 

5263 

8345 

12337 

5.8 

391 

880 

1776 

3082 

5069 

7941 

11712 

6.0 

375 

849 

1697 

2964 

4843 

7687 

11444 

6.2 

359 

844 

1644 

2879 

4678 

7415 

10952 

6.4 

340 

803 

1588 

2792 

4541 

7089 

10610 

6.6 

326 

796 

1555 

2682 

4398 

6863 

10198 

2.8 

6.8 

314 

773 

1506 

2643 

4266 

6731 

10035 

7.0 

303 

749 

1472 

2562 

4154 

6514 

9689 

7.2 

316 

735 

1438 

2529 

4077 

6321 

9296 

7.4 

306 

720 

1404 

2461 

3957 

6166 

9078 

7.6 

296 

713 

1365 

2382 

3827 

6003 

8900 

7.8 

284 

698 

1341 

2339 

3766 

5867 

8660 

8.0 

280 

678 

1321 

2294 

3706 

5758 

8454 

142 


TABLE  3.10  — Cont  inued 


SINGLE-SKIN  TANK  BARGE  HULL  WEIGHTS  FOR  CB  =  0.80 


B/T 

L/B 

BARGE 

LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

395 

896 

1785 

3163 

5088 

8070 

11822 

5.8 

378 

902 

1711 

2998 

4957 

7803 

11497 

6.0 

355 

867 

1670 

2917 

4760 

7520 

11096 

6.2 

340 

837 

1631 

2829 

4616 

7240 

10745 

6.4 

327 

807 

1582 

2757 

4475 

6974 

10370 

6 . 6 

315 

776 

1547 

2664 

4339 

6795 

10080 

3.0 

6.8 

302 

774 

1494 

2626 

4226 

6591 

9767 

7.0 

293 

765 

1467 

2555 

4116 

6434 

9503 

7.2 

311 

747 

1433 

2501 

4035 

6275 

9281 

7.4 

304 

724 

1399 

2436 

3953 

6142 

9067 

7.6 

299 

714 

1376 

2396 

3840 

5979 

8796 

7.8 

285 

698 

1342 

2358 

3793 

5895 

8611 

8.0 

276 

689 

1331 

2313 

3700 

5740 

8468 

143 


TABLE  3.11 


SINGLE 

-SKIN 

TANK  BARGE 

HULL  WEIGHTS 

FOR  CB 

=  0.85 

B/T 

L/B 

BARGE 

LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

475 

1073 

2141 

3874 

6382 

10275 

15128 

5.8 

453 

1015 

2051 

3610 

5964 

9682 

14433 

6.0 

434 

964 

1930 

3472 

5730 

9124 

13569 

6.2 

414 

926 

18  32 

3325 

5398 

8716 

12924 

6.4 

398 

881 

1754 

3164 

5165 

8030 

12343 

6. 6 

382 

859 

1702 

3054 

5003 

7821 

11858 

2.2 

6.8 

366 

826 

1656 

2958 

4781 

7411 

11355 

7.0 

353 

797 

1585 

2847 

4608 

7168 

10895 

7.2 

361 

769 

1532 

2692 

4463 

6973 

10232 

7.4 

348 

748 

1506 

2629 

4329 

6777 

10013 

7.6 

336 

726 

1450 

2535 

4199 

6583 

9810 

7.8 

323 

715 

1419 

2457 

4087 

6373 

9370 

8.0 

308 

704 

1374 

2403 

3980 

6259 

9255 

5.6 

449 

1001 

2001 

3584 

5880 

9382 

14033 

5.8 

429 

950 

1914 

3389 

5578 

8946 

13266 

6.0 

408 

917 

1826 

3262 

5294 

8495 

12620 

6.2 

390 

881 

1765 

3144 

5132 

8052 

12059 

6.4 

376 

849 

1692 

3017 

4930 

7749 

1 

11636 

6.6 

361 

822 

1641 

2905 

4766 

7412 

11037 

2.4 

6.8 

348 

793 

1579 

2817 

4568 

7171 

10695 

7.0 

336 

783 

1542 

2712 

4445 

6941 

10416 

7.2 

345 

761 

1494 

2613 

4321 

6740 

9887 

7.4 

330 

744 

1482 

2548 

4198 

6501 

9644 

7.6 

317 

729 

1421 

2501 

4092 

636  4 

9477 

7.8 

304 

711 

1388 

2452 

3978 

6204 

9144 

8.0 

294 

692 

1357 

2388 

3878 

6046 

8917 

144 


TABLE  3.11  — Continued 


SINGLE- 

■SKIN  TANK 

BARGE 

HULL  WEIGHTS 

FOR  CB 

=  0.85 

B/T 

L/B 

BARGE 

LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

427 

962 

1915 

3402 

5576 

8843 

13238 

5.8 

407 

918 

1846 

3259 

5338 

8509 

12634 

6.0 

390 

889 

1760 

3128 

5135 

8114 

11937 

6.2 

374 

855 

1700 

3018 

4890 

7801 

11473 

6.4 

360 

841 

1651 

2930 

4758 

7425 

11126 

6.6 

347 

812 

1595 

2829 

4575 

7234 

10824 

2.6 

6.8 

329 

795 

1562 

2723 

4448 

6909 

10401 

7.0 

316 

772 

1515 

2660 

4338 

6752 

10121 

7.2 

327 

753 

1472 

2607 

4242 

6565 

9647 

7.4 

316 

730 

1437 

2530 

4095 

6410 

9429 

7.6 

306 

730 

1401 

2458 

4002 

6243 

• 

9190 

7.8 

293 

707 

1370 

2398 

3898 

6080 

9002 

8.0 

283 

695 

1342 

2382 

3825 

5938 

8764 

5.6 

409 

931 

1870 

3266 

5365 

8478 

12607 

5.8 

391 

888 

1808 

3152 

5147 

8228 

11991 

6.0 

376 

880 

17  30 

3059 

4975 

7869 

11670 

6.2 

360 

860 

1671 

2936 

4818 

7588 

11189 

6.4 

341 

833 

1627 

2854 

4662 

7259 

10835 

6.6 

327 

808 

1582 

2766 

4512 

7050 

10436 

2.8 

6.8 

315 

782 

1540 

2709 

4372 

6843 

10081 

7.0 

304 

782 

1500 

2629 

4276 

6637 

9903 

7.2 

317 

751 

1466 

2565 

4157 

6523 

9496 

7.4 

310 

740 

1429 

2549 

4079 

6329 

9296 

7.6 

302 

723 

1396 

2450 

3956 

6190 

9088 

7.8 

291 

707 

1377 

2426 

3868 

6030 

8875 

8.0 

287 

705 

1356 

2346 

3780 

5889 

8734 

145 


TABLE  3.11  —Continued 


SINGLE- 

SKIN  TANK 

BARGE 

HULL  WEIGHTS 

FOR  CB 

=  0.85 

B/T 

L/B 

BARGE 

LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

396 

927 

1826 

3222 

5235 

8282 

12258 

5.8 

378 

909 

1761 

3067 

5055 

7961 

11698 

6.0 

357 

874 

1706 

2993 

4871 

7740 

11378 

6.2 

341 

846 

1652 

2886 

4752 

7423 

10923 

6.4 

328 

825 

1619 

2832 

4590 

7245 

10622 

6.6 

316 

809 

1571 

2757 

4457 

6962 

10326 

3.0 

6.8 

304 

797 

1539 

2673 

4323 

6779 

9971 

7.0 

304 

774 

1498 

2616 

4223 

6627 

9759 

7.2 

314 

756 

1462 

2600 

4132 

6431 

9506 

7.4 

309 

751 

1442 

2517 

4043 

6284 

9266 

7.6 

300 

732 

1416 

2461 

3956 

6148 

9038 

7.8 

286 

713 

1381 

2408 

3876 

6003 

8872 

8.0 

277 

698 

1353 

2399 

3792 

5870 

8701 

146 


TABLE  3.12 


DOUBLE 

BOTTOM 

TANK  BARGE 

HULL  WEIGHTS 

FOR 

CB=0 . 80 

B/T 

L/B 

BARGE 

LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

552 

1189 

2312 

4039 

6539 

10430 

15184 

5.8 

526 

1135 

2198 

3867 

6184 

9863 

14382 

6.0 

505 

1091 

2052 

3678 

5877 

9295 

13580 

6.2 

483 

1049 

1980 

3508 

5555 

8896 

12839 

6.4 

464 

1009 

1889 

3362 

5317 

8260 

12324 

6.6 

447 

970 

1817 

3211 

5087 

8001 

11765 

2.2 

6.8 

432 

932 

1718 

3104 

4908 

7678 

11267 

7.0 

414 

903 

1684 

2977 

4737 

7291 

10789 

7.2 

401 

890 

1620 

2819 

4565 

6998 

10213 

7.4 

390 

•  858 

1573 

2729 

4392 

6779 

98  39 

7.6 

378 

828 

1528 

2641 

4267 

6576 

9505 

7.8 

368 

804 

1477 

2568 

4145 

6339 

9142 

8.0 

357 

786 

1422 

2477 

4019 

6149 

8884 

5.6 

524 

1138 

2189 

3781 

6064 

9577 

14111 

5.8 

501 

1089 

2084 

3607 

5779 

9062 

13303 

6.0 

481 

1045 

1951 

3437 

5493 

8721 

12601  | 

6.2 

462 

1004 

1864 

3309 

5237 

8326 

11964 

6.4 

442 

983 

1823 

317  3 

5051 

7804 

11487 

6.6 

426 

947 

1745 

3054 

4833 

7530 

11037 

2.4 

6 . 8 

412 

912 

1664 

2930 

4690 

7234 

10583 

7.0 

399 

881 

1615 

2835 

4512 

6926 

10197 

7.2 

389 

855 

1547 

2726 

4369 

6695 

9696 

7.4 

374 

843 

1499 

2633 

4211 

6491 

9413 

7.6 

363 

815 

1462 

2563 

4102 

6252 

9077 

7.8 

353 

790 

1427 

2488 

396  3 

6084 

8800 

8.0 

342 

772 

1390 

2391 

3858 

5901 

8547 

147 


TABLE  3.12  — Continued 


DOUBLE  BOTTOM  TANK  BARGE  HULL  WEIGHTS  FOR  CB=0.80 


B/T 

L/B 

BARGE 

LENGTH  (FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

504 

1100 

2058 

3595 

5744 

9061 

13143 

5.8 

481 

1066 

1989 

3433 

5523 

8614 

12473 

6.0 

460 

1024 

1893 

3289 

5275 

8218 

11820 

6.2 

443 

982 

1817 

3171 

5032 

7888 

11354 

6.4 

428 

946 

1757 

3041 

4825 

7484 

10898 

6.6 

413 

915 

1680 

2937 

4663 

7224 

10519 

2.6 

6.8 

397 

903 

1610 

2854 

4503 

6980 

10119 

7.0 

385 

870 

1562 

2764 

4355 

6683 

9757 

7.2 

375 

840 

1523 

2650 

4219 

6438 

9382 

7.4 

363 

816 

1466 

2561 

4092 

6284 

9069 

7.6 

351 

796 

1430 

2499 

3966 

6108 

8817 

7.8 

340 

786 

1398 

2447 

3845 

5936 

8577 

8.0 

331 

762 

1372 

2350 

3763 

5808 

8416 

5.6 

484 

1076 

2005 

3457 

5532 

8602 

12508 

5.8 

465 

1036 

1922 

3297 

5314 

8247 

11966 

6.0 

447 

994 

1836 

3179 

5095 

7908 

11345 

6.2 

431 

976 

1761 

3082 

4845 

7613 

10917 

6.4 

414 

938 

1707 

2974 

4687 

7262 

10502 

6.6 

399 

904 

1647 

2860 

4533 

6993 

10153 

2.8 

6.8 

384 

877 

1577 

2762 

4380 

6760 

9771 

7.0 

370 

852 

1530 

2677 

4236 

6536 

9477 

7.2 

363 

839 

1488 

2610 

4091 

6333 

9230 

7.4 

352 

812 

1460 

2551 

4030 

6169 

8990 

7.6 

341 

789 

1432 

2456 

3920 

6011 

8755 

7.8 

332 

771 

1390 

2437 

3817 

5909 

8567 

8.0 

333 

750 

1375 

2352 

3753 

5778 

8347 
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TABLE  3.12  — Continued 


DOUBLE 

BOTTOM 

TANK  BARGE 

HULL  WEIGHTS  FOR 

CB=0.80 

B/T 

L/B 

BARGE 

LENGTH 

(FT) 

250 

325 

400 

475 

550 

625 

700 

5.6 

472 

1066 

1932 

3340 

5382 

8325 

12066 

5.8 

454 

1030 

1864 

3229 

5161 

7980 

11548 

6.0 

434 

985 

1797 

3110 

4962 

7702 

10970 

6.2 

416 

952 

1736 

3000 

4723 

7393 

10587 

6.4 

401 

923 

1676 

2897 

4590 

7086 

10186 

6.6 

386 

907 

1628 

2815 

4406 

6871 

9963 

3.0 

6.8 

373 

874 

1570 

2740 

4308 

6650 

9619 

7.0 

360 

847 

1531 

2647 

4182 

6439 

9413 

7.2 

355 

824 

1486 

2591 

4090 

6308 

9192 

7.4 

355 

799 

1467 

2523 

4000 

6195 

8960 

7.6 

343 

780 

1427 

2487 

4930 

6053 

8794 

7.8 

332 

763 

1420 

2431 

3817 

5899 

8594 

8.0 

323 

742 

1380 

2388 

3761 

5789 

8462 
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TABLE  3.13 


REGRESSION  EQUATIONS  FOR  BARGE  LENGTH,  DEADWEIGHT, 
AND  HULL  STEEL  WEIGHT 


Regression  Type 

Barge  Type 

°B 

REGRESSION  EQUATION 

_ 

-9.921 

-1.091 

-0. 372 

3.290 

Barge  Hull  Steel 

Weight 

Single-Skin 

0.75 

e 

(L/B) 

(B/T) 

(L) 

f (L,  L/B,  B/T) 

tl 

0.80 

e 

-iO .  063  (l/b) 

-1.076 

(B/T) 

-0.350 

.3.308 
( L) 

- 

■10.188,  ,  , 

-1.057 

-0.331 

3. 32  3 

0.85 

e 

(L/B) 

(B/T) 

(L) 

-  8.784 ,  ,  . 

-1.175 

-0; 389 

3.147 

Double-Bottom 

0.80 

e 

(L/B) 

(B/T) 

(L) 

Barge  Hull  Steel 

Weight 

Single-Skin 

0.75 

0 

‘  6 ’ 206 (L/B) 

1.348 

(B/T) 

0.884 

(DWT)1'104 

— 

■  6.396,  ,  , 

1.368 

0.909 

,  ,1.111 

f (L/B,  B/T,  DWT) 

0.80 

e 

(L/B) 

(B/T) 

(DWT) 

_ 

■  6.569  ,  , 

1.391 

0.930 

1.117 

0.85 

e 

(L/B) 

(B/T) 

(DWT) 

■  5.150 

1.126 

0.800 

1.049 

Double-Bottom 

0.80 

e 

(L/B) 

(B/T) 

(DWT) 

Barge  Length 

Single-Skin 

0.75 

e 

1*128  (L/B) 

0.742 

(B/T) 

0.382 

,  ,0.336 

(DWT) 

1.108  ,  ,  , 

0.739 

0.  381 

0. 336 

f (L/B,  B/T,  DWT)  | 

0.80 

e 

(L/B) 

(B/T) 

(DWT) 

1.088  ,  ,  , 

0.737 

0.  379 

0.  336 

0.85 

e 

(L/B) 

(B/T) 

(DWT) 

1.154  ,  ,  , 

0.731 

0.  378 

0. 333 

Double-Bottom 

0.80 

e 

(L/B) 

(B/T) 

(DWT) 

Barge  Deadweight 

Single-Skin 

0.75 

e 

3-359  (L/B) 

-2.209 

(B/T) 

-1.137 

(L)2-978 

- 

3.295  ,  ,  , 

-2.199 

-1.133 

2.976 

f (L/B ,  B/T,  L) 

II 

0.80 

e 

(L/B) 

(B/T) 

(L) 

- 

3.237  ,  ,  ■ 

-2.191 

-1.129 

2.975 

II 

0 . 85 

e 

(L  /B) 

(B/T) 

(L) 

NOTES:  Barge  depth  is  assumed  to  be  the  minimum  allowed  by  the  Freeboard  rules  presented  in  Table  2.5. 

DWT  refers  to  the  barge  cargo  deadweight. 
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TABLE  3.14 


COMPARISONS  OF  BARGE  DESIGN  MODEL'S  HULL  STEEL  WEIGHT  ESTIMATES 
WITH  ACTUAL  BARGE  HULL  STEEL  WEIGHTS 


Barge  Particulars 

Remarks 

Assumed 

Assumed 

Actual 

Calculated 

%  Error 

L  X  B  X  D 

Draft 

DWT 

Scanting 

Length 

Block 

Coefficient 

Hull  Steel 
Weight 

Hull  Steel 
Weight 

Single-Skin 

546 '0" 

0.86 

4180  LT 

4558  LT 

+  9% 

546 ' 0 "x85 1 0 "x38 ' 9 " 

32' 0" 

31 , 500 

2nd  Generation 
Tank  Barge 

520 ' 0" 

0.90 

II 

4154 

-  1% 

Single-Skin 

581 '0" 

0.83 

5398  LT 

6123  LT 

+13% 

581 1 0"x95 1 0"x46 ' 0" 

36 ' 0" 

40,500 

Rigid  Linked 
3rd  Generation 
Tank  Barge 

525 '0" 

0.90 

II 

5156 

-  4% 

Single-Skin 

450' 0" 

0.85 

2181  LT 

2668  LT 

+22% 

450 ' 0"x80 ' 0"x32 ' 6" 

26' 3" 

20,000 

2nd  Generation 

Tank  Barge 

420 ' 0" 

0.90 

•1 

2330 

+  6% 

Single-Skin 

' 

269* 3" 

0.85 

588  LT 

521  LT 

-11% 

269 1 3"x54 ' 0"xl7 1 6" 

13' 8" 

4,200 

1st  Generation 

Tank  Barge 

250 ' 0" 

0.90 

•  1 

462 

-21% 

CHAPTER  U 


TUG-BARGE  POWERING  PROGRAM  TO  ESTIMATE  DHP 

4. 1  Introduction 

The  tug-barge  powering  program  ” power”  has  been 

developed  to  provide  an  estimate  of  the  horsepower  required  to 
be  delivered  to  the  propeller  to  drive  an  integrated  tug-barge 

unit  of  given  size  and  form  at  a  specified  speed.  This 

delivered  horsepower  (DHP)  estimate  is  used  by  the 

drop-and-swap  program  to  estimate  the  horsepower  of  the  ma¬ 
chinery  to  be  installed  onboard  the  tug  (IHP)  and  the  horse¬ 
power  required  to  be  delivered  to  the  shaft  (SHP).  The  IHP 
estimate  is  used  in  a  regression  equation  formulated  by  Sharp 
(1975)  to  estimate  cost  of  propulsion  machinery.  The  SHP  es¬ 
timate  is  used  to  determine  fuel  costs.  This  is  done  by  sim¬ 
ply  multiplying  SHP  by  cost  per  unit  fuel,  by  voyage  duration, 
and  by  specific  fuel  consumption.  Thus,  a  reasonably  accurate 
estimate  of  DHP  is  necessary  to  ensure  that  tug  capital  and 
operating  costs  used  by  the  drop-and-swap  program  are 
reasonable . 

The  barge  powering  program  is  basically  a  table  lookup 
and  interpolation/extrapolation  routine  that  utilizes  the 


152 


tankship  resistance  and  propulsion  data  of  Tsuchida  (1969) 
which  is  based  on  hull  lines  shown  in  Figure  n.1.  From  the 
resistance  data  the  program  determines  the  effective  horsepow¬ 
er  (EHP)  needed  to  propel  the  tug-barge  unit  at  the  specified 
speed.  Then  the  EHP,  self-propulsion  factors,  and  some 
assumed  propeller  particulars  are  fed  into  the  Triantafyllou 
(1977)  preliminary  propeller  design  program  to  obtain 
estimates  of  the  propeller's  propulsive  efficiency  and  conse¬ 
quently  the  horsepower  required  to  be  delivered  to  the 
propeller  . 

The  tankship  data  of  Tsuchida  (1969)  is  used  since, 
unfortunately,  no  series  tests  of  large  ocean  going  barge 
forms  have  been  conducted.  However,  the  tankship  model  tests 
use  forms  similar  to  the  full-bodied  integrated  tug-barge 
hulls  currently  in  operation  today.  Thus,  no  significant  er¬ 
ror  should  result  from  using  this  data  for  tug-barge  data. 

The  propeller  design  program  of  Triantafyllou  (1977)  is 
used  since  this  program  uses  a  mathematical  formulation  of 
Wageningen  B-series  that  is  corrected  for  laminar  flow 
effects.  It  provides  very  good  agreement  with  model  tests  of 
commercial  type  hulls  and  propellers  and  thus  is  appropriate 
for  use  in  the  barge  powering  estimate.  Since  this  program  is 
documented  in  Triantafyllou  (1977),  the  details  of  its  logic 
will  not  be  presented  here. 

In  the  text  that  follows,  the  logical  structure  of  the 
powering  program  is  presented.  This  is  followed  by  the  pre- 
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sentation  and  discussion  of  the  table  data  and  sample  program 
outputs . 


4 . 2  Logical  Structure 

The  logical  structure  of  the  program  is  shown  in  flow 
chart  form  in  Figure  4.2.  In  the  text  following,  each  block 
of  the  flow  chart  is  explained  (except  for  the  propeller  effi¬ 
ciency  program  explained  in  Tr iantafyllou  (1977))  so  that  the 
tables  and  assumptions  used  are  enumerated. 

4.2.1  Input  of  Parameter  Values 

The  barge  powering  program  requires  as  input  the 
tug-barge  unit's  principal  dimensions,  block  coefficient,  and 
speed.  Specifically,  the  following  values  must  be  provided 
for  the  tug-barge  unit  design: 

"1":  length  at  the  waterline 

"b":  molded  breadth 

"dr”:  summer  waterline  draft 
"cb":  barge  block  coefficient 
"v":  speed 

Note,  except  for  "l”  which  corresponds  to  the  length  of  the 
tug  integrated  with  the  barge,  barge  values  are  used  above. 
This  is  because  the  tug  is  normally  designed  to  integrate 
smoothly  with  the  barge’s  lines  so  that  the  combined  unit's 
dimensions  and  block  coefficient  (except  for  "1")  are  not  sig¬ 
nificantly  different  from  the  barge  alone. 
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These  values  are  immediately  converted  to  ratios--length 
breadth  ( "lb"= "1"/ "b" ) ,  breadth  draft  (  "bt"="b"/"dr")  ,  and 
Froude  number  ( "fn"=Q. 2976x"v"/sqrt( "l") )--which  are  used  as 
inputs  into  the  subroutines  "resist”  and  "propfac tors" 
described  later.  Limitations  on  the  ranges  of  values  that 
these  ratios  and  the  block  coefficient  may  take  are  as 
follows : 

0.75  <  "cb"  <0.85 
6.0  <  "lb"  <8.0 
"fn"  <0.22 
2.0  _<  "bt"  <3.25 

Either  of  the  first  two  and  both  of  the  last  two  limitations 

must  hold  for  the  program  to  operate  without  significant 

* 

error.  The  rational  of  these  limitations  will  be  explained  in 
the  following  text.  Following  the  calculation  of  these  ratios 
the  program  calls  the  subroutine  "propfactors". 

*i.2.2  Calculation  of  Self-Propulsion  Factors 

The  subroutine  "propfactors"  is  a  simple  linear  interpo¬ 
lation  and  quadratic  extrapolation  routine  that  provides 
values  for  wake  fraction  (WT="wa") ,  thrust  deduction  fraction 
(t="th"),  and  relative  rotative  efficiency  ( n  ="hr")  as  a 
function  of  "lb"  and  "cb".  These  self-propulsion  factor 
values  are  interpolated  or  extrapolated  from  the  tables  of 
( 1  —  t )  ,  (1-WT),  and  (nR  )  shown  in  Table  **.1  which  were  derived 
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from  graphs  presented  in  Tsuchida  (1969,  Figs.  60  and  63). 
These  tables  provide  a  range  of  "lb"  values  from  6.2  to  7.6  by 
0.1  increments  and  a  range  of  "cb"  values  from  0.770  to  0.8^0 
by  0.005  increments  for  a  Froude  number  of  0.16. 

For  "lb"  and  "cb"  values  that  fall  within  the  table 
ranges,  the  subroutine  "propfactors"  obtains  the 
self-propulsion  factors  through  a  simple  two  dimensional  lin¬ 
ear  interpolation  of  table  values.  If  either  "lb"  or  "cb" 
fall  outside  of  the  table  ranges,  then  the  subroutine  utilizes 
quadratic  extrapolation  to  extend  the  two  nearest  table 
entries  for  the  variable  that  exceeds  the  table  range  and  then 
uses  linear  interpolation  between  these  two  values  for  the 
other  variable.  For  example,  if  "cb"  is  0.75  and  "lb"  is  7.15 
then  the  subroutine  will  use  quadratic  extrapolation  to  find 


the 

table 

extrapolation 

of  " 

cb"  to  0.75  for  "lb"  of 

7.  1  and 

7.2. 

Then 

the  subroutine 

will 

linearly  interpolate 

between 

these  two  extrapolations  to  obtain  the  value  for  "lb"  of  7.15. 

To  ensure  that  the  extrapolation  will  not  yield  gross 
errors,  table  extensions  have  been  limited  to: 

0.75  £  "cb"  <0.85 
or 

6.0  <  "lb"  <8.0 

If  either  of  these  ranges  are  exceeded  or  if  the  values  of 
both  "lb"  and  "cb"  exceed  table  ranges,  the  program  indicates 
this  error  has  occurred  ("iprop"=1)  to  the  calling  program 
"power"  and  does  not  calculate  the  self-propulsion  factors. 
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After  obtaining  the  self-propulsion  factors  for  the 
specified  value  of  "lb”  and  "cb”,  the  program  corrects  the 
wake  fraction  for  Froude  numbers  greater  than  0.16.  The  other 
factors  do  not  need  such  correction  according  to  Tsuchida 
(1969,  pp.  7-8).  Following  this,  the  subprogram  "power”  calls 
the  subroutine  "resist"  to  obtain  the  residual  resistance 
coefficient. 

4.2.3  Calculation  of  Residual  Resistance  Coefficient 

The  subroutine  "resist"  is  a  four  dimensional  linear  and 
quadratic  extrapolation/interpolation  routine  that  provides 
values  for  the  residual  resistance  coefficient  ("cr")  as  a 
function  of  "lb",  "cb",  "fn",  and  "bt".  These  residual  resis¬ 
tance  coefficients  are  interpolated  and  extrapolated  from 
tables  shown  in  Table  4.2  which  were  derived  from  the  graphs 
presented  in  Tsuchida  (1969,  Figs.  7-32).  These  tables  pro¬ 
vide  a  range  of  "cb"  values  from  0.775  to  0.835  by  0.01 
increments,  a  range  of  "lb"  values  from  6.2  to  7.6  by  0.2 
increments,  and  a  range  of  "fn"  values  from  0.14  to  0.22  by 
0.01  increments  (except  between  0.14  and  0.16)  for  "bt"  values 
of  2.46  and  2.76.  These  data  are  rerepresented  in  graphic 
form  with  "cr"  as  a  function  of  "fn"  for  a  range  of  "lb" 
values,  with  separate  graphs  for  different  "cb"  and  "bt" 
values  in  Figure  4.3. 

After  the  subroutine  reconstructs  the  residual  resis¬ 
tance  coefficient  array  by  creating  linearly  interpolated 
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entries  for  a  Froude  number  of  0.15,  it  proceeds  with  quadrat¬ 
ic  interpolation  or  extrapolation  with  respect  to  Froude 
number.  That  is,  for  the  four  "cb"  and  ” lb”  table  values  that 
bracket  the  inputted  "cb"  and  "lb”  value  (for  each  "bt" 
value) ,  the  subroutine  fits  a  parabola  through  the  three 
closest  Froude  number  table  entries  and  then  quadratically 
interpolates  or  extrapolates  for  the  inputted  Froude  number. 
It  then  does  a  two  dimensional  linear  interpolation  among 
these  four  interpolated/extrapolated  values  with  respect  to 
"cb”  and  "lb”.  After  this  is  done  for  both  "bt"  tables,  the 
subroutine  finishes  by  linearly  interpolating  or  extrapolating 
between  the  two  "bt"  values  for  the  inputted  "bt"  value. 

To  insure  that  the  quadratic  extrapolation  routine  does 
not  yield  gross  errors,  Froude  number  inputs  are  limited  to  a 
value  of  0.22.  No  lower  bound  is  specified  since  the  values 
are  almost  constant  for  low  Froude  numbers  so  that  extrapola¬ 
tion  will  cause  little  error. 

After  obtaining  the  residual  resistance  coefficient  for 
the  specified  values  of  "lb",  "bt",  "cb",  and  "fn",  the 
subprogram  "power"  proceeds  to  calculate  the  inputs  for  the 
subroutine  "prop". 

4.2.4  Calculation  of  Inputs  for  Subroutine  "prop" 

The  propeller  efficiency  subroutine  "prop"  requires  as 
input  the  self-propulsion  factors  previously  calculated  as 
well  as  some  particulars  concerning  the  propeller,  i.e.,  its 
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diameter,  number  of  blades,  and  expanded  area  ratio.  It  also 
requires  an  estimate  of  effective  horsepower  needed  to  drive 
the  tug-barge  hull  at  the  specified  speed  (EHP)  through  still 
water . 

The  latter  value  is  proportional  to  the  unit's  speed 
and  hull  resistance.  The  hull  resistance  is,  in  turn,  propor¬ 
tional  to  the  vessel's  wetted  surface  area,  square  of  its 
speed,  and  its  total  resistance  coefficient.  The  wetted  sur¬ 
face  area  is  estimated  by  the  formula  given  in  Tsuchida  (1969, 
p.11  ): 

"wsa"  =  1.81  x  "1"  x  "dr"  +  ''cb  x  "1"  x  "b" 

And,  the  total  resistance  coefficient  is  determined  by  summing 
the  residual  resistance  coefficient  (obtained  in  the  previous 
section),  the  frictional  resistance  coefficient  (calculated  by 


the 

ATTC 

formula  v 

ia  an 

iterative 

routine) 

,  and 

assumed  rough- 

nes 

s  allowance  of 

0. 000 

4. 

As 

for  the 

pro 

peller  par 

ticulars 

,  the 

se 

have  been 

ass 

urn  ed 

to  agree 

with 

the  propell 

er  used 

in  the 

tan 

ker  series 

giv 

en  in 

Tsuchid  a 

(  see 

Fig.  4.i). 

Specifi 

cally , 

the 

propel ler 

is 

assumed  to  have 

four 

blades,  a 

diameter 

equal 

to 

0.636  of 

the 

barge  draft, 

and 

an  expand 

ed  area 

ratio 

estimated  by  a 

sem 

i-emp: 

Lrical  fo 

rmul  a 

recommend 

ed  by 

Wageni 

ngen 

for  his 

B-screw  series. 

Following  the  determination  of  the  above  inputs, 
subroutine  "prop"  is  called.  As  stated  previously,  this 
subroutine  determines  via  a  mathematical  formulation  of  the 
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propeller  series  curves  the  propulsive  efficiency  of  the  pro¬ 
peller  (  n  )  and  the  horsepower  required  to  be  delivered  to 
propeller  (DHP  =  EHP/n  ).  The  subprogram  "power"  then 
terminates  upon  returning  the  value  of  "dhp"  to  the  main  pro¬ 
gram  "drop-and -swap"  . 
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wooa  ship  na  1 


Body  Plan,  Stem  &  Stern  Contour  [M.S.  No.  1321] 


Stern  Frame  &  Rudder 
of  M.S.  No.  1321 


SOURCE:  Tsuchida  (1969) 


FIGURE  4.1 

TANK-SHIP  HULL  LINES  USED  IN  OBTAINING  RESIDUAL  RESISTANCE 
COEFFICIENT  AND  SELF-PROPULSION  FACTOR  DATA 
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barge  length  (1) , 
breadth  (b) , 
draft  (dr) , 
block  coefficient 
and  velocity  (v) 


input : 

(cb)  , 


calculate : 

barge  length/breadth  ratio  (lb) , 
breadth/draft  ratio  (bt) , 
and  Froude  number  (fn) 


call  subroutine  propf actors: 
input :  lb,  cb,  bt 

output :  wake  fraction  (wa) 
thrust  deduction  fraction  (th) , 
relative  rotative  efficiency  (hr) , 

(calculated  via  use  of  linear  interpolation/guadratic 
extrapolation)  and  index  that  indicates  whether  values  were 
within  table  interpolable  ranges  (iprop) 
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call  subroutine  resist: 
input :  lb ,  cb ,  bt,  and  fn 

output:  residual  resistance  coefficient  (calculated  via 
use  of  quadratic  extrapolation/interpolation  w.r.t.  fn; 
and  linear  interpolation/extrapolation  w.r.t.  cb,  lb,  and 
bt)  and  index  to  indicate  whether  fn,  lb,  or  cb  are 
within  table  interpolable  ranges 


calculate : 

assumed  barge  diameter  (pdiam) , 
hull  wetted  surface  area  (wsa) , 
Reynold's  number  (rn) 

Specify : 

number  of  blades  in  the  propeller  (zb) 


calculate : 

frictional  resistance  coefficient  (cf) 
using  attc  and  ittc  equations 


FICURE  4,2 

SUMMARY  FLOW  CHART  FOR  POWERING  SUBPROGRAM 
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output : 

effective  horsepower  (ehp) , 
delivered  horsepower  (dhp) , 
propulsive  efficiency  (propef ) , 
index  indicated  whether  table 
ranges  were  exceeded  (index) 


FIGURE  4.2. .. (Continued) 
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FIGURE  4.3 

PLOT  OF  C  VS.  FN  FOR  C  =0.775  AND  B/T=2.46 
R  B 
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FIGURE  4.3 

PLOT  OF  C  VS.  FN  FOR  C  =0.785  AND  B/T=2.46 
R  B 
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FIGURE  4.3 

PLOT  OF  C  VS.  FN  FOR  C=0.795  AND  B/T=2.46 
R  B 
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FIGURE  4.3 

PLOT  OF  C  VS.  FN  FOR  C  =0.815  AND  B/T=2.46 

K  B 
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FIGURE  4.3 

PLOT  OF  C  VS.  FN  FOR  C  =0.825  AND  B/T=2.46 
R  B 
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FIGURE  4.3 

PLOT  OF  C_  VS.  FN  FOR  C  =0.775  AND  B/T=2.76 
K  B 
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FN 


FIGURE  4.3 


PLOT  OF  C  VS.  FN  FOR  C  =0.785  AND  B/T=2.76 
K  B 
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FIGURE  4.3 

PLOT  OF  C  VS.  FN  FOR  C  =0.795  AND 
R  B 
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0 . 16 


0.17 


FIGURE  4 

OF  C  VS.  FN  FOR  C  = 
R  B 


IS 

i 
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FIGURE  4.3 

PLOT  OF  C  VS.  FN  FOR  C  =0.815  AND  B/T=2.76 
R  B 
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FN 


FIGURE  4.3 

PLOT  OF  C_  VS.  FN  FOR  C  =0.825  AND  B/T=2.76 
R  B 
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FIGURE  4.3 

PLOT  OF  C  VS.  FN  FOR  C  =0.835  AND  B/T=2.76 
R  B 
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TABLE  4.1 


SELF  PROPULSION  FACTOR-W 
WAKE  FRACTION  ( (l-W^ xlOOO) 


Block 

Coefficient 

6.2 

6.3 

6.4 

6.5 

6. 6 

6.7 

6.8 

6.9 

7.0 

7.1 

7.2 

7.3 

1 

1 

7.5 

7.6 

0.770 

543 

550 

558 

565 

572 

580 

587 

594 

601 

608 

615 

622 

630 

637 

644 

0.775 

540 

547 

554 

561 

568 

575 

582 

589 

596 

603 

610 

617 

624 

631 

638 

0.780 

536 

543 

550 

557 

563 

570 

577 

584 

591 

598 

605 

612 

619 

626 

633 

0.785 

533 

540 

547 

553 

560 

566 

572 

579 

586 

592 

599 

606 

613 

619 

626 

0.790 

530 

536 

542 

548 

555 

561 

568 

574 

580 

587 

593 

600 

606 

612 

619 

0.795 

526 

532 

538 

544 

550 

557 

563 

569 

575 

581 

588 

594 

600 

606 

612 

0.800 

523 

529 

535 

540 

546 

552 

558 

564 

570 

576 

582 

588 

594 

600 

606 

0.805 

520 

526 

531 

536 

542 

548 

553 

559 

565 

570 

576 

582 

588 

593 

599 

0.810 

518 

523 

528 

532 

538 

543 

549 

555 

560 

565 

570 

576 

582 

587 

592 

0.815 

516 

520 

525 

529 

533 

538 

543 

549 

554 

560 

565 

570 

576 

581 

586 

0.820 

515 

518 

522 

526 

530 

534 

539 

543 

549 

554 

560 

565 

570 

575 

580 

0.825 

514 

517 

520 

523 

527 

531 

535 

539 

544 

549 

553 

558 

563 

568 

573 

0.830 

513 

515 

517 

520 

523 

527 

531 

535 

539 

543 

548 

553 

558 

562 

567 

0.835 

512 

513 

515 

518 

521 

524 

528 

531 

535 

538 

542 

546 

551 

556 

560 

0.840 

511 

.  . . .  _ 

512 

513 

515 

518 

521 

524 

527 

530 

5  34 

538 

541 

545 

550 

554 
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TABLE  4.1 


SELF  PROPULSION  FACTO R-t 
THRUST  DEDUCTION  FRACTION  ((l-t)xlOOO) 


Block 

Coefficient 

6.2 

6.3 

6.4 

6.5 

6.6 

6.7 

6.8 

6.9 

7.0 

7.1 

7.2 

7.3 

7.4 

7.5 

7.6 

0.770 

769 

772 

775 

778 

782 

784 

787 

790 

793 

797 

800 

803 

806 

809 

812 

0.775 

769 

772 

775 

778 

781 

784 

787 

790 

793 

796 

799 

802 

805 

808 

811 

0.780 

769 

772 

775 

778 

781 

784 

787 

790 

793 

796 

799 

802 

805 

808 

811 

0.785 

769 

772 

775 

777 

781 

784 

787 

790 

792 

796 

798 

801 

804 

807 

810 

0.790 

768 

771 

774 

111 

780 

783 

786 

789 

792 

795 

798 

801 

804 

807 

810 

0.795 

768 

771 

774 

111 

780 

783 

786 

788 

792 

795 

797 

800 

803 

806 

809 

0.800 

768 

770 

77  3 

116 

779 

782 

785 

788 

791 

794 

797 

800 

802 

805 

808 

0.805 

767 

770 

773 

ne 

778 

782 

785 

787 

790 

793 

796 

799 

802 

805 

807 

0.810 

766 

769 

772 

775 

778 

781 

784 

787 

789 

792 

795 

798 

801 

804 

807 

0.815 

765 

768 

771 

774 

111 

780 

782 

785 

788 

791 

794 

797 

800 

802 

806 

0.820 

764 

767 

770 

773 

775 

778 

781 

784 

787 

790 

793 

795 

798 

801 

804 

0.825 

763 

765 

768 

771 

774 

111 

780 

782 

785 

788 

791 

794 

797 

800 

802 

0.830 

761 

763 

766 

769 

772 

775 

778 

780 

783 

786 

789 

792 

795 

797 

800 

0.835 

758 

761 

764 

767 

770 

111 

775 

778 

781 

784 

787 

789 

792 

795 

798 

0.840 

755 

759 

761 

764 

767 

770 

772 

775 

778 

781 

784 

786 

789 

792 

795 

TABLE  4.1 


SELF  PROPULSION  FACTOR- n 

R 

RELATIVE  ROTATING  EFFICIENCY  (X1000) 


Block 

Coefficient 

6.2 

6.3 

6.4 

6.5 

6 . 6 

6.7 

6.8 

6.9 

7.0 

7.1 

7.2 

7.3 

7.4 

7.5 

7.6 

0.770 

998 

1003 

1007 

1010 

1013 

1016 

1017 

1017 

1017 

1016 

1015 

1013 

1011 

1008 

1004 

0.775 

1000 

1005 

1009 

1013 

1016 

1018 

1019 

1020 

1020 

1019 

1018 

1016 

1014 

1011 

1007 

0.780 

1003 

1007 

1011 

1015 

1018 

1021 

1022 

1023 

1023 

1022 

1021 

1019 

1017 

1014 

1010 

0.785 

1005 

1009 

1014 

1018 

1021 

102  3 

1024 

1025 

1025 

1025 

1024 

1022 

1020 

1017 

1013 

0.790 

1007 

1012 

1016 

1020 

1023 

1026 

1027 

1028 

1028 

1028 

1027 

1025 

1023 

1020 

1015 

0.795 

1009 

1014 

1018 

1022 

1026 

1028 

1030 

1031 

1031 

1031 

1030 

1028 

1026 

1023 

1018 

0.800 

1011 

1016 

1021 

1025 

1028 

1031 

1033 

1033 

1034 

1033 

1022 

1031 

1029 

1025 

1021 

0.805 

1013 

1018 

1023 

1027 

1031 

1034 

1035 

1036 

1037 

1036 

1035 

1034 

1032 

1028 

1024 

0.810 

1015 

1020 

1025 

1030 

1034 

1036 

1038 

1039 

1039 

1039 

1038 

1037 

1035 

1031 

1027 

0.815 

1017 

1022 

1027 

1033 

1036 

1039 

1041 

1042 

1042 

1042 

1041 

1039 

1037 

1034 

1030 

0.820 

1020 

1025 

1030 

1035 

1039 

1042 

104  3 

1044 

1045 

1045 

1044 

1042 

1040 

1037 

1033 

0.825 

1022 

1027 

1032 

1037 

1041 

1044 

1046 

1047 

1048 

1048 

1047 

1045 

104  3 

1040 

1036 

0.830 

1024 

1029 

1035 

1040 

1043 

1046 

1048 

1050 

1050 

1050 

1050 

1048 

1046 

1043 

1039 

0.835 

1026 

1031 

1037 

1042 

1046 

1049 

1051 

1053 

1053 

1053 

1052 

1051 

1049 

1046 

1042 

0.840 

1028 

1033 

1039 

1045 

1048 

1051 

1054 

1055 

1056 

1056 

1055 

1054 

1052 

1048 

1045 

TABLE  4 . 2 

FULL-BODIED  SINGLE-SCREW  RESIDUAL  RESISTANCE  COEFFICIENTS 
FOR  BREADTH/DRAFT  =2.46  (x  10000) 


Froude 

Number 

Block 

Coefficient 

6.2 

6.4 

Length/Breadth 

6.6  6.8  7.0 

7.2 

7.4 

7.6 

0.775 

291 

271 

257 

248 

240 

235 

233 

232 

0.785 

323 

303 

286 

273 

264 

258 

254 

252 

0.795 

352 

330 

310 

295 

284 

276 

272 

270 

0.14 

0.805 

368 

349 

328 

312 

298 

288 

284 

282 

0.815 

381 

365 

342 

327 

313 

301 

294 

291 

0.825 

412 

388 

364 

348 

334 

324 

315 

310 

0.835 

463 

435 

409 

390 

375 

367 

360 

359 

0.775 

295 

280 

265 

251 

243 

239 

237 

237 

0.785 

333 

315 

298 

285 

272 

268 

265 

263 

361 

341 

322 

307 

294 

287 

283 

282 

0.16 

378 

357 

338 

322 

308 

300 

294 

292 

0.815 

395 

37  3 

352 

337 

323 

313 

308 

306 

0.825 

425 

400 

378 

361 

348 

337 

330 

327  * 

0.835 

481 

453 

429 

411 

398 

387 

379 

374 

0.775 

309 

294 

2,79 

266 

257 

252 

249 

248 

0.785 

346 

330 

313 

298 

288 

282 

278 

277 

0.795 

379 

360 

340 

322 

310 

303 

301 

300 

0.17 

0.805 

398 

378 

357 

338 

326 

318 

316 

315 

0.815 

417 

396 

373 

355 

343 

336 

332 

330 

0.825 

452 

428 

405 

387 

373 

366 

360 

358 

0.835 

515 

488 

465 

447 

433 

424 

418 

415 

0.775 

338 

322 

306 

292 

284 

280 

278 

278 

JIM 

371 

3^3 

338 

322 

313 

309 

307 

306 

405 

383 

366 

350 

340 

333 

332 

331 

0.18 

0.805 

433 

409 

389 

372 

360 

35  3 

351 

350 

0.815 

462 

439 

415 

398 

386 

378 

374 

372 

0.825 

509 

483 

460 

440 

427 

419 

414 

412 

0.835 

582 

555 

528 

507 

492 

483 

480 

479 
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TABLE  4.2 

FULL-BODIED  SINGLE  SCREW  RESIDUAL  RESISTANCE  COEFFICIENTS 
FOR  BREADTH/DRAFT  =  2.46  (x  1000) 


Froude 

Number 

Block 

Coefficient 

6.2 

6.4 

Length/Bre  adth 
6.6  6.8  7.0 

7.2 

7.4 

7.6 

. 1 

0.775 

380 

363 

347 

334 

328 

323 

322 

t 

322 

0.785 

414 

393 

377 

363 

355 

351 

348 

348  i 

0.795 

449 

426 

406 

392 

382 

377 

374 

1 

373  ; 

0.19 

0.805 

486 

460 

440 

425 

414 

408 

405 

404  i 

0.815 

531 

507 

484 

469 

457 

450 

447 

446 

0.825 

598 

571 

.550 

531 

520 

511 

509 

508  : 

0.835 

696 

665 

641 

620 

608 

599 

591 

590  , 

0.775 

448 

428 

412 

400 

394 

390 

388 

388  ; 

0.785 

472 

453 

434 

423 

416 

412 

410 

409  : 

0.795 

504 

484 

463 

450 

443 

440 

43S 

437 

0.20 

0.805 

549 

530 

509 

491 

482 

479 

.477 

477 

0.815 

609 

590 

570 

554 

543 

538 

535 

534 

0.825 

700 

680 

660 

644 

633 

626 

623 

621  i 

0.835 

830 

808 

788 

770 

• 

758 

746 

740 

740  ; 

I 

0.775 

545 

527 

510 

496 

488 

486 

485 

484 

0.785 

567 

549 

530 

518 

510 

507 

505 

505  j 

0.795 

599 

580 

560 

546 

538 

534 

532 

532 

0.21 

0.805 

645 

624 

607 

591 

582 

579 

578 

578 

0.815 

709 

690 

673 

659 

650 

644 

642 

641  | 

0.825 

810 

790 

773 

758 

748 

741 

740 

74C 

0.835 

952 

933 

915 

900 

890 

884 

882 

88C  j 

i 

0.775 

684 

664 

647 

635 

628 

623 

620 

619 

0.785 

711 

696 

677 

663 

656 

650 

648 

647  ! 

0.795 

752 

731 

712 

697 

688 

683 

682 

681 

0.22 

0.805 

797 

774 

756 

740 

731 

727 

724 

723 

0.815 

859 

838 

818 

801 

793 

788 

788 

738 

0.825 

955 

930 

909 

895 

885 

881 

880 

880 

0.835 

1100 

1075 

1052 

1032 

1026 

1025 

1025 

1025 
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TABLE  4.2 


FULL-BODIED  SINGLE-SCREW  RESIDUAL  RESISTANCE  COEFFICIENTS 
FOR  BREADTH/DRAFT  =2.76  (x  10000) 


Froude 

Number 

Block 

Coefficient 

6.2 

6.4 

Length/Breadth 

6.6  6.8  7.0 

7.2 

7.4 

7.6 

0.775 

292 

273 

261 

253 

247 

243 

242 

241 

0.785 

324 

307 

293 

284 

278 

274 

273 

272 

0.795 

355 

338 

323 

313 

307 

304 

303 

303 

0.14 

0.805 

383 

363 

346 

335 

330 

328 

327 

327 

0.815 

402 

382 

363 

353 

348 

347 

347 

347 

0.825 

422 

404 

388 

379 

376 

375 

375 

375 

0.835 

448 

437 

427 

422 

420 

420 

420 

420  ) 

0.775 

302 

284 

271 

263 

257 

253 

251 

250  | 

0.785 

337 

318 

303 

294 

289 

287 

286 

236  ' 

0.795 

368 

347 

332 

323 

317 

313 

312 

312 

0.16 

0.805 

395 

374 

357 

347 

341 

338 

338 

338 

0.815 

418 

396 

378 

368 

362 

360 

359 

359 

0.825  * 

439 

422 

403 

395 

392 

391 

391 

391 

0.835 

468 

457 

445 

440 

440 

440 

440 

440 

0.775 

313 

297 

284 

277 

273 

272 

271 

270 

0.785 

347 

330 

317 

310 

307 

305 

304 

304 

0.795 

383 

362 

349 

340 

335 

333 

333 

333 

0.17 

0.805 

415 

390 

376 

366 

360 

358 

358 

358 

0.815 

440 

420 

402 

392 

386 

383 

382 

382 

0.325 

467 

452 

438 

430 

425 

424 

423 

423 

0.835 

502 

492 

485 

483 

482 

482 

482 

482 

0.775 

340 

325 

312 

303 

300 

298 

297 

297 

0.785 

374 

358 

345 

336 

331 

329 

328 

328 

0.795 

410 

391 

378 

368 

362 

360 

359 

359 

0.18 

0.805 

446 

424 

410 

400 

394 

392 

390 

390 

0.815 

481 

462 

443 

433 

428 

427 

426 

426 

0.825 

520 

505 

491 

481 

480 

480 

480 

480 

0.835 

566 

560 

556 

554 

554 

554 

554 

554 
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TABLE  4 . 2 

FULL-BODIED  SINGLE-SCREW  RESIDUAL  RESISTANCE  COEFFICIENTS 
BREADTH/DRAFT  *  2.76  (x  10000) 


Provide 

Number 

Block 

Coefficient 

6.2 

6.4 

Length/Breadth 

6.6  6.8  7.0 

7.2 

7.4 

7.6 

0.775 

381 

364 

351 

347 

346 

346 

346 

346 

0.785 

414 

399 

385 

378 

377 

377 

377 

377 

0.795 

453 

437 

421 

413 

410 

410 

410 

410 

0.19 

0.805 

497 

478 

463 

452 

448 

447 

447 

447 

0.815 

551 

530 

513 

501 

496 

493 

492 

492 

0.825 

618 

596 

580 

572 

570 

570 

570 

570 

0.835 

692 

681 

674 

670 

669 

669 

669 

669 

0.775 

440 

430 

419 

412 

411 

410 

410 

410 

0.785 

472 

460 

448 

440 

438 

437 

437 

437 

0.795 

511 

496 

483 

474 

472 

472 

471 

471 

0.20 

0.805 

561 

543 

528 

519 

515 

515 

515 

515 

0.815 

627 

609 

593 

583 

580 

580 

580 

580 

0.825 

721 

706 

694 

683 

680 

680 

680 

680 

0.835 

840 

830 

825 

825 

825 

825 

825 

825 

0.775 

541 

527 

513 

505 

503 

502 

502 

502 

0.785 

568 

553 

540 

532 

530 

,  530 

530 

530 

0.795 

602 

590 

578 

570 

572 

572 

572 

572 

0.21 

0.805 

655 

642 

630 

623 

620 

620 

620 

620 

0.815 

729 

715 

701 

695 

693 

692 

692 

692 

0.825 

835 

820 

805 

799 

798 

798 

798 

798 

0.835 

972 

962 

952 

950 

950 

950 

950 

950 

0.775 

683 

665 

651 

643 

640 

639 

639 

639 

0.785 

717 

699 

686 

679 

677 

677 

677 

677 

0.795 

760 

741 

727 

720 

720 

720 

720 

720 

0.22 

0.805 

813 

791 

779 

772 

769 

769 

769 

769 

0.815 

891 

860 

845 

839 

836 

836 

836 

836 

0.825 

980 

960 

945 

940 

940 

940 

940 

940 

0.835 

1123 

1112 

1103 

1100 

1100 

1100 

1100 

1100 

CHAPTER  5 


DROP-AND-SWAP  MODEL  RESULTS,  OBSERVATIONS, 

AND  SUGGESTED  REFINEMENTS 

5. 1  Base  Case  Results 

At  this  point,  the  structure  and  details  of  the 
drop-and-swap  model,  including  the  barge  powering  and  design 
subprograms,  have  been  discussed.  It  is  now  time  to  consider 
what  can  be  learned  from  the  model.  To  do  this,  the  model  was 
run  for  five  one-way  trades  with  annual  cargo  flQws  of 
100,000;  600,000;  1,000,000;  6,000,000;  and  10,000,000  long 
tons.  The  user  specified  inputs  and  the  values  of  the 
semi-fixed  parameters  used  in  these  runs  are  shown  in  Table 
5.1  and  Figure  2.5,  respectively.  Essentially,  in  these  base 
case  runs  the  model  finds  the  optimum  barge  size,  speed,  and 
form  within  the  system  parameter  ranges  specified  in  Table  2.1 
for  port  pair  trades  with  port  separation  distances  of  500, 
2000,  3500  and  5000  nautical  miles  (NM)  and  for  a  reasonable 
range  of  loading/discharging  rates.  In  these  base  case 
trades,  it  is  assumed  there  are  no  draft  or  beam  restr ic tions . 
Barge  length,  however,  is  limited  to  750  feet  since  the  ABS 
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rules  used  in  the  barge  design  model  are  applicable  only  to 
barges  less  than  this  length.  Additionally,  barge  size  is 
limited  to  100,000  DWT  since  this  is  the  maximum  size  that 
designers  have  even  considered  for  barge  construction.  (1) 
Finally,  it  is  assumed  that  there  are  no  costs  associated  with 
terminal  loading/discharging  or  storage  facilities.  The  value 
of  the  cargo  is  assumed  to  be  $200  per  long  ton  and  the  other 
cost  parameters  are  as  discussed  in  Chapter  2. 

Graphical  output  from  these  runs  of  the  required  freight 
rate  as  a  function  of  loading/discharging  (L-D)  rate  for  four 
port  separation  distances  (500,  2000,  3500  and  5000  nautical 
miles)  is  shown  in  Figures  5.  1-5.5.  The  printed  outputs  from 
these  runs  are  voluminous  and  so  cannot  be  included  here. 
However,  some  of  the  results,  including  the  range  of  optimum 
barge  deadweights  and  tug  speeds,  have  been  extracted  and 
presented  in  Table  5.2.  In  addition,  some  observations  that 
can  be  made  concerning  all  the  runs  are  presented  in  the  next 
subsection.  This  is  followed  by  a  discussion  of  points  of  in¬ 
terest  that  pertain  to  an'  individual  run.  And,  this  is 
followed  by  some  conclusions  that  can  be  drawn  from  the  whole 
series  of  base  runs. 

( 1  )  The  largest  barge  currently  Tn  operation  Is  the 
Breit/Ingram  tug-barge  system  Presque  Isle  of  53.000DWT 
operating  on  the  Great  Lakes.  The  largest  ocean  going  barges 
will  be  the  ^7,000  DWT  CATUG  tank  barges  being  built  for 
Aram  ad  a  Hess. 
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5.1.1  General  Observations  Pertaining  to  All  Base  Case  Runs 

The  following  general  observations  can  be  made  after 
examining  the  printed  output  of  the  base  case  runs: 

1.  The  optimum  barge  form  for  all  the  port  pair  trades  has 
the  smallest  allowable  length-breadth  (6.0)  and  breadth-draft 
(2.0)  ratios.  These  ratios  result  in  the  shortest  barge  with 
the  least  amount  of  hull  steel  for  a  given  deadweight 
capacity.  (1)  Apparently,  at  the  slow  speeds  that  these 
tug-barge  systems  operate,  the  capital  cost  savings  achieved 
by  constructing  short,  blunt  barges  outweigh  any  cost 
penalties  associated  with  the  higher  residual  resistance  of 
these  forms. 

2.  The  optimum  block  coefficient  for  all  the  port  pair 

trades  varies  from  0.78  to  0.81.  The  0.78  value  is  usually 

* 

associated  with  tug-barge  units  advancing  at  eleven  knots  or 
faster  while  the  0.81  value  is  usually  found  with  systems 
advancing  at  nine  knots  or  slower.  However,  for  small 
tug-barge  units,  less  than  15,000  DWT,  a  block  coefficient  of 
as  low  as  0.78  may  be  found  for  speeds  as  low  as  nine  knots. 

3.  Port  pair  trades  with  longer  port  separation  distances 
and  faster  L-D  rates  usually  have  optimum  systems  with  larger 
barges . 

Port  pair  trades  with  longer  port  separation  distances 
and  lower  L-D  rates  usually  have  optimum  systems  with  a 

(1)  This  result  can  be  verified  by  examining  the  elasticity 
exponents  of  the  regression  equations  presented  in  Table  3.13. 
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greater  number  of  tug  and  barge  units. 

Observations  that  are  peculiar  to  an  individual  base  case 
and  not  already  summarized  in  Table  5.2  are  presented  in  the 
following  four  subsections. 

5.1.2  Base  Case  Results:  Annual  Cargo  Flows  of  100,000  LT 
When  annual  cargo  flows  are  as  low  as  in  this  case,  all 

of  the  cargo  can  usually  be  moved  less  expensively  in  a  single 
small  barge  operating  in  the  ship-like  integral  mode.  The 
drop-and-swap  mode  is  not  competitive  due  to  the  extra  barge 
or  barges  needed  to  be  stationed  in  port.  As  can  be  seen  from 
Figure  5.1,  the  only  time  that  the  drop-and-swap  mode  can  be 
of  advantage  is  when  L-D  rates  are  very  low  (less  than  2000 
LT/day)  in  trades  with  long  port  separation  distances.  In 
these  trades,  the  extensive  in  port  time  forces  integral  mode 
operations  to  require  more  than  one  tug  unit  to  handle  the  an¬ 
nual  cargo  flows.  This  makes  integral  mode  operation 
uncompetitive  compared  to  drop-and-swap  mode  operation  with 
only  one  tug. 

5.1.3  Base  Case  Results:  Annual  Cargo  Flows 
of  600,000  and  1,000,000  LT 

Both  of  these  cases  are  similar  in  that  for  port  pair 
trades  with  low  L-D  rates,  the  drop-and-swap  mode  will  be  less 
expensive.  Conversely,  for  those  trades  having  high  L-D 
rates,  the  integral  mode  will  be  less  expensive.  As  seen  in 
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Figures  5.2  and  5.3,  the  major  difference  between  these  cases 
is  that  for  the  1,000,000  LT  case,  the  L-D  rate  tradeoff 
points  are  usually  larger  than  for  the  600,000  LT  case.  It 
was  observed  from  both  cases  that  for  a  given  port  separation 
distance,  the  L-D  rate  tradeoff  point  between  the  two  modes 
usually  occurs  when  the  optimal  integral  mode  begins  to  re¬ 
quire  only  one  more  tug  than  the  optimal  drop-and-swap  mode. 
Then,  above  the  tradeoff  L-D  rate,  the  extra  cost  of  the 
barges  needed  to  remain  in  port  for  drop-and-swap  mode  opera¬ 
tion  begin  to  outweigh  the  capital  cost  savings  resulting  from 
the  one  fewer  tug. 

5.1.^  Base  Case  Results:  Annual  Cargo  Flows  of  6,000,000  LT 
As  seen  in  Figure  5.^,  for  this  case  the  drop-and-swap 
mode  will  be  the  most  economical  method  of  operation  for  all 
port  pair  trades  with  port  separation  distance  greater  than 
3500  NM.  This  is  because  with  large  cargo  flows,  the  savings 
resulting  from  economies  of  scale  push  the  optimum  barge  size 
to  the  upper  constraint  of  100,000  DWT.  Due  to  this 

constraint,  the  optimum  number  of  integral  tug-barge  units 
cannot  be  reduced  (at  economical  speeds  of  operation)  suffi¬ 
ciently  fewer  than  the  number  of  drop-and-swap  tugs  to  make 
the  integral  mode  economically  competitive.  Thus,  when  barge 
size  is  constrained,  the  higher  tug  utilization  at  a  given 
speed  achieved  by  the  drop-and-swap  mode  of  operation 
outweighs  any  barge  capital  cost  savings  inherent  in  the  inte- 
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gral  mode.  For  the  shorter  port  separation  distance  (500  and 
2000  nautical  miles)  the  barge  size  is  not  binding  so  that  the 
integral  mode  does  become  more  economical,  but  at  comparative¬ 
ly  high  L-D  rates.  It  should  be  noted  that  when  barge  size  is 
not  binding  the  optimal  system  speeds  vary  between  seven  and 
eleven  knots,  However,  when  the  barge  size  approaches  the  up¬ 
per  limit,  the  optimum  integral  mode  speeds  become  as  high  as 
thirteen  knots. 

5.1.5  Base  Case  Results:  Annual  Cargo  Flows  of  10,000,000  LT 
In  this  case  the  barge  size  constraint  causes  the 
drop-and-swap  mode  to  be  the  operating  mode  of  choice  for  all 
port  pair  trades  except  for  some  with  port  separation  distance 
of  500  NM.  For  those  trades,  the  integral  mode  will  be 
favored  when  L-D  rates  exceed  ^5,(300  LT/day.  Again,  it  should 
be  noted  that  barge  size  constraints  have  forced  the  optimum 
integral  mode  systems  to  operate  with  speeds  of  up  to  fifteen 
knots . 


5.1.6  Conclusions  From  Base  Case  Runs 

After  reviewing  all  the  ouput  from  the  base  case  runs,  a 
few  general  conclusions  can  be  drawn  concerning  tug-barge 
systems  operating  on  a  port  pair  trade  in  either  the 
drop-and-swap  or  integral  mode.  The  major  conclusion  is  that 
port  pair  trades  can  be  broken  up  into  three  groups,  primarily 
based  on  the  amount  of  annual  cargo  flow  and  secondarily  based 
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on  the  port  separation  distance.  These  groups  are  1)  trades 
for  which  the  integral  mode  will  be  the  operating  method  of 


choice  for  all  L-D  rates,  2)  trades  for  which  the 
drop-and-swap  mode  will  be  the  operating  method  of  choice  for 
all  L-D  rates,  and  3)  trades  for  which  the  drop-and-swap  mode 
will  be  optimum  for  low  L-D  rates  and  the  integral  mode  will 
be  optimum  for  high  L-D  rates. 

The  first  group  consists  of  trades  with  annual  cargo 
flow  requirements  less  than  the  ton-mile  capacity  of  a  single 
small  (less  than  25,000  DWT)  tug-barge  unit  operating  at  an 
economical  speed  (6  to  9  knots).  In  these  trades,  since  all 
the  cargo  can  be  easily  transported  in  a  single  tug-barge 
unit,  the  higher  tug  utilization  available  from  drop-and-swap 
operation  is  unnecessary.  Thus,  the  integral  mode  will  always 
be  the  operating  method  of  choice  in  these  trades. 

The  second  group  consists  of  trades  with  annual  cargo 
flow  requirements  much  greater  than  the  ton  mile  capacity  of 
two  or  more  tug-barge  units  of  maximum  carrying  capacity.  The 
constraint  on  barge  size  prevents  full  use  of  economies  of 
scale  in  the  integral  mode  of  operation.  This,  in  turn, 
prevents  operation  in  the  integral  mode  at  economical  speeds 
with  sufficiently  less  capital  equipment  to  make  up  for  the 
increased  tug  utilization  savings  inherent  in  the 
drop-and-swap  mode  of  operation.  Thus,  the  drop-and-swap  mode 
will  always  be  the  operational  mode  of  choice  in  deadweight 
constrained  trades. 
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The  third  group  consists  of  trades  not  falling  within 
the  first  two  groups.  That  is,  trades  for  which  annual  cargo 
flows  are  too  large  to  be  carried  in  one  tug-barge  unit  but 
too  small  to  be  carried  in  several  maximum  sized  units.  It  is 
for  these  trades  that  there  will  be  a  L-D  tradeoff  point  below 
which  the  drop-and-swap  mode  and  above  which  the  integral  mode 
will  be  the  operational  method  of  choice. 

In  general,  for  trades  with  greater  annual  cargo  flows 
and  longer  port  separation  distances,  this  tradeoff  point  is 
at  greater  L-D  rates.  This  is  because  these  trades  demand 
more  ton-mile  transport  capacity  which  can  be  met  by  either 
increasing  the  number  or  size  of  the  tug-barge  units.  If  the 
number  of  units  is  increased,  then  the  additional  barges  that 
must  remain  in  port  in  the  drop-and-swap  operations  become 
less  significant.  If  the  barge  size  is  increased,  the  in¬ 
crease  for  the  drop-and-swap  mode  operation  will  be  less  than 
for  integral  mode  operations  due  to  the  higher  tug  utilization 
efficiency.  In  either  case  the  drop-and-swap  mode  is  favored 
in  these  trades  more  than  the  integral  mode. 

It  should  be  mentioned  that  trades  with  very  short  port 
separation  distances  (i.e.  500  NM)  have  L-D  tradeoff  points  at 
higher  values  than  for  longer  distance  trades.  This  is  be¬ 
cause  the  percentage  of  the  total  voyage  time  spent  in  port 
(about  40%  at  the  L-D  tradeoff  point)  is  large  for  these 
trades,  favoring  the  higher  tug  utilization  efficiencies 
achieved  by  drop-and-swap  mode  of  operation. 
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From  the  base  case  runs,  certain  conclusions  can  also  be 
drawn  concerning  the  form  and  speed  of  the  optimum  barge.  It 
appears  that  since  the  Froude  number  is  so  low  (less  than 
0.16)  at  the  optimum  tug-barge  speeds  of  seven  to  eleven  knots 
that  residual  resistance  does  not  have  much  significance. 
Thus,  optimum  barge  forms  have  the  greatest  draft  and  breadth 
possible  to  reduce  the  length;  and,  consequently,  the  barge 
capital  cost.  This  saving  outweighs  any  resistance  penalty 
caused  by  the  blunt  barge  forms.  The  only  concession  made  for 
the  effect  of  resistance  is  with  respect  to  block  coefficient. 
For  tug-barge  speeds  greater  than  ten  knots  finer  lines  are 
required  while  blunter  lines  are  suitable  at  slower  speeds. 

5 . 2  Sensitivity  Runs 

Sensitivity  runs  were  made  to  see  the  effect  on  required 
freight  rates  and  L-D  rate  tradeoff  points  of  changes  in  some 
of  the  semi-fixed  parameter  values  used  in  the  base  case  runs. 
Specifically,  changes  to  the  value  of  the  cargo,  the  shoreside 
storage  costs,  and  the  maximum  barge  draft  were  investigated. 

Due  to  the  cost  of  these  runs,  an  exhaustive  set, 
including  a  wide  range  of  variation  of  a  single  parameter  or 
combination  of  parameters,  could  not  be  made.  However,  the 
runs  whose  inputs  are  given  in  Table  5.3  should  give  an 
indication,  although  not  conclusive,  of  the  effects  of  changes 
to  their  values.  In  the  three  sections  that  follow,  an  analy¬ 
sis  is  made  of  the  output  from  the  sensitivity  runs. 
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5.2.1  Sensitivity  Run:  Change  in  Cargo  Value 


A  sensitivity  run  was  made  to  see  what  effects  a  change 
in  the  cargo  value  from  $200  to  $0  per  long  ton  would  have  on 
the  1,000,000  LT  annual  cargo  flow  base  case.  As  seen  in  Fig¬ 
ure  5.6  and  Table  5 .**,  this  reduction  in  cargo  value  reduces 
the  required  freight  rate  by  less  than  $.20  for  trades  with 
port  separation  distance  of  500  NM  to  over  $1.00  for  trades 
with  a  port  separation  distance  of  5000  NM.  As  to  be 
expected,  the  reduction  is  in  proportion  to  the  port  separa¬ 
tion  distance,  which  is  indicative  of  the  sea  time  and  the 
time  value  of  the  cargo.  It  was  also  noticed  that  in  the  base 
case  run,  that  the  optimum  system  speeds  would  sometimes  be 
one,  two,  or  even  three  knots  faster  than  the  sensitivity  run. 
This  confirms  what  is  to  be  expected,  that  higher  cargo  values 
result  in  higher  optimum  system  speeds.  Thus,  it  is  seen  that 
unless  the  time  value  of  cargo  is  included  in  any  transporta¬ 
tion  system  optimization  model,  the  transport  vehicles  will  be 
optimized  at  too  slow  a  speed. 

5.2.2  Sensitivity  Runs:  Changes  to  Shoreside  Storage  Costs 

Two  sensitivity  runs  were  made  to  determine  what  effects 
the  inclusion  of  shoreside  storage  capital  construction  costs 
of  $^8  per  long  ton  storage  capacity  (1)  would  have  on  the 

(1)  This  value  for  storage  capacity  capital  costs  was  obtained 
from  a  major  oil  company  and  is  indicative  of  oil  tankage  con¬ 
struction  costs  for  large  tanks  as  of  January  1979.  Also,  the 
model  assumes  that  the  amount  of  shoreside  storage  capacity 
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1,000,000  and  6,000,000  long  ton  annual  cargo  flow  base  cases. 
In  addition,  a  run  was  made  to  determine  the  effect  on  the 
1,000,000  long  ton  base  case  when  a  $1.00  per  long  ton  storage 
facility  throughput  charge  was  also  included. 

It  would  be  expected  that  since  shoreside  storage  costs 
are  applicable  to  the  integral  mode  only,  the  inclusion  of 
such  costs  would  favor  the  drop-and-swap  mode  of  operation. 
This  expected  result  is  confirmed  by  the  graphical  and  tabu¬ 
lar  output  of  these  runs  presented  in  Figures  5. 7-5. 9  and  Ta¬ 
ble  5.^.  From  both  cases  it  is  seen  that  the  effect  of  the 
capital  cost  of  shoreside  storage  on  the  integral  mode  becomes 
more  pronounced  with  longer  port  separation  distances.  This 
is  because  these  port  pair  trades  demand  the  larger  barges  and 
consequently,  larger  and  more  expensive  storage  tanks.  (1) 
Also,  the  effect  of  storage  is  greater  in  trades  with  low  L-D 
rates  since  these  trades  require  more  shoreside  loading  and 
discharging  terminal  facilities  to  handle  the  annual  cargo 
flows . 

The  combined  results  of  both  of  these  effects  is  that 
the  L-D  tradeoff  point  is  shifted  to  higher  values,  especially 
for  trades  with  longer  port  separation  distances  and  that  the 

for  5  given  port  pair  trade  is  equal  to  the  product  of  the 
number  of  terminal  facilities  in  the  port  times  the  deadweight 
of  the  optimum  barge  operating  in  the  integral  mode  for  that 
port  pair  trade. 

(1)  For  the  1,000,000  LT  annual  cargo  flow  trades,  the  present 
valued  annual  capital  charges  for  storage  amount  to  approxi¬ 
mately  $0.0564  per  10,000  DWT  tankage  and  LT  of  cargo  flow. 
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advantage  the  drop-and-swap  mode  has  for  trades  with  low  L-D 
rates  becomes  more  pronounced. 

The  addition  of  the  $1.00  storage  operating  cost  favors 
the  drop-and-swap  mode  even  more  than  the  storage  capital 
costs.  This  is  because  it  essentially  increases  all  the  inte¬ 
gral  mode  trades'  rfr  by  $1.00,  equivalent  to  the  annualized 
capital  cost  for  over  175,000  DWT  of  tankage.  As  seen  by 
comparing  Figures  5.8  and  5.9,  this  results  in  a  shift  of  the 
integral  mode  curves  by  $1.00  so  that  the  L-D  tradeoff  point 
moves  to  a  much  higher  value.  For  the  port  pair  trades  with  a 
separation  distance  of  500  NM,  where  the  integral  mode  has 
rfr's  only  marginally  lower  than  the  drop-and-swap  mode  at 
high  L-D  rates,  the  inclusion  of  the  operating  storage  costs 
increases  the  integral  mode  rfr  so  much  that  the  drop-and-swap 
mode  '  dominates  for  all  L-D  rates.  Since  the  differences  be¬ 
tween  the  drop-and-swap  and  integral  rfr  curves  is  mere  pro¬ 
nounced  with  large  port  separation  distance,  the  tradeoff 
point  shift  is  not  as  great  for  these  trades.  However,  it  is 
apparent  that  if  shoreside  storage  costs  are  included  in  the 
economic  analysis,  the  trades  for  which  the  drop-and-swap  mode 
will  be  optimal  will  be  extended  to  those  of  significantly 
higher  loading/discharging  rates. 

5.2.3  Sensitivity  Runs:  Inclusion  of  Port  Draft  Limit 

A  sensitivity  run  was  made  to  investigate  the  effects 
that  a  draft  limitation  would  have  on  the  1,000,000  LT  annual 
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cargo  flow  base  case.  Additionally,  another  run  was  made  to 
see  if  the  same  effect  occurred  to  the  1,000,000  LT  trades 
that  also  included  a  $^8  per  long  ton  storage  terminal  capital 
cost.  The  graphical  and  tabular  results  of  these  runs  are 
shown  in  Figures  5.10  and  5.11  and  Table  5.^. 

Comparing  these  figures  with  the  unrestricted  draft 
cases  shown  in  Figures  5.3  and  5.7,  it  was  observed  that  there 
was  little  effect  on  trades  which  were  optimized  with  small 
barges,  those  of  less  than  ^50  feet  or  25,0000  DWT.  However, 
the  effect  was  very  pronounced  in  those  trades  which  in  the 
unrestricted  draft  case  would  be  optimized  with  large  barges. 
In  those  trades,  both  the  drop-and-swap  and  integral  mode 
rfr's  were  increased  by  several  dollars.  This  is  because  the 
draft  restrictions  forced  the  optimum  feasible  barges  of  a 
given  deadweight  capacity  to  have  greater  lengths  and 
consequently,  greater  capital  cost.  Additionally,  since  barge 
length  was  constrained  to  be  less  than  750  feet,  the  maximum 
barge  size  was  limited  to  less  than  65,000DWT.  This  forced 
those  trades  which  were  optimized  in  the  unrestricted  draft 
cases  to  obtain  the  necessary  ton-mile  capacity  by  either 
increasing  the  speed  of  the  tugs  or  the  number  of  tug-barge 
units  in  operation — both  requiring  the  rfr  to  increase  even 
further.  The  draft  limitation  affects  both  the  drop-and-swap 
and  integral  mode  trades.  However,  since  the  majority  of 
unlimited  draft  port  pair  trades  are  optimized  with  larger 
barges  in  the  integral  than  the  drop-and-swap  mode,  the  effect 
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is  somewhat  greater  for  the  integral  mode.  Thus,  the  L-D 
trade-off  point  is  shifted  to  somewhat  higher  values  in  the 
longer  distance  trades  where  larger  barges  are  predominant. 
Nevertheless,  the  shift  is  not  very  great. 

Generally,  it  is  seen  that  port  draft  restrictions  are 
very  costly  in  trades  which  have  large  annual  cargo  flows 
and/or  long  port  separation  distances  and  thus  would  normally 
take  advantage  of  the  economies  of  scale  inherent  in  large 
barges.  These  trades,  however,  are  slightly  more  favorable  to 
the  drop-and-swap  mode  of  operation. 

5. 3  Suggestions  for  Model  Refinement  and  Future  Research 

The  simplest  refinement  that  can  be  made  to  the 
drop-and-swap  model  is  to  verify  and  calibrate  the  barge  hull 
steel  weight  regression  equations  obtained  from  the  barge  de¬ 
sign  subprogram  with  hull  weight  data  from  single-skin 
tank-barges  currently  in  operation.  This  requires  only  the 
acquisition  of  detailed  design  data  (especially  block 
coefficient,  percentage  high  strength  steel  used,  scantling 
length,  and  hull  steel  weight)  for  a  series  of  barges  of  dif¬ 
ferent  size  and  form.  However,  since  this  data  is  of  proprie¬ 
tary  nature,  it  was  not  obtained. 

Another  major  refinement  could  be  achieved  by  using 
tank-barge  resistance  and  propulsion  data  instead  of  the 
single-screw,  full-bodied  data  that  was  used  in  the  powering 
subprogram.  The  tank-ship  data,  although  adequate  for  the 
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preliminary  economic  anlaysis  accomplished  in  the 
drop-and-swap  model,  is  probably  not  accurate  enough  to  be 
used  for  preliminary  design  purposes.  However,  other  than 
results  of  some  towing  tank  model  tests  presented  in  Robinson 
(1976)  there  is  no  published  literature  on  the  hydrodynamic 
performance  of  large  push-towed  tug-barge  forms,  single  or 
twin  screw.  Therefore,  there  is  a  definite  need  for  a  series 
of  towing  tank  model  tests  of  tug-barge  forms  similar  to  those 
currently  in  use.  Suggested  ranges  of  forms  that  should 
investigated  are  length-breadth  ratios  from  4.0  to  7.0  and 
breadth-draft  ratios  from  2.0  to  4.q  and  block  coefficients 
from  0.80  to  0.90.  Evaluation  is  particulary  needed  of  the 
drag  caused  by  current  and  proposed  linkage  designs  and  by 
draft  differentials  between  the  tug  and  barge. 

to 

Another  refinement  could  be  achieved  by  updating, 
calibrating,  and  validating  the  tug  capital  cost  regression 
equations.  This  would  require  researching  tug  machinery  and 
linkage  costs,  and  possibly  developing  a  preliminary  tug  de¬ 
sign  subprogram.  However,  the  latter  may  not  be  necessary  if 
sufficient  tug  and  supply  boat  data  can  be  obtained  to  develop 
reliable  regression  equations  for  tug  hull  and  outfit  weights 
and/or  costs. 

The  model  could  also  be  improved  by  taking  into  account 
the  stochastic  nature  of  shipping  operations.  Tug-barge 
systems  can  not  operate  on  precise  time  schedules  on  account 
of  delays  due  to  weather,  equipment  malfunction,  strikes,  port 
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congestion,  etc.  Since  the  drop-and-swap  model  is 

deterministic,  and  only  uses  average  process  times,  it  can  not 
simulate  the  unpredictable  nature  of  tug-barge  operations. 
Nevertheless,  for  systems  with  a  large  number  of  tugs  and 

barges,  the  stochastic  nature  will  not  be  very  important  due 
to  system  averaging.  Only  in  the  small  systems  might  these 
effects  be  of  concern.  Therefore,  it  would  be  useful  to  de¬ 
velop  a  simulation  model  that  incorporates  stochastic 
operations  for  a  small  system,  say  one  tug  and  three  barges. 
A  comparison  of  the  stochastic  model  results  with  that  from 
the  deterministic  drop-and-swap  model  would  then  indicate  how 
important  is  the  stocahstic  nature  of  the  system. 

The  stochastic  nature  of  shipping  schedules  would  also 

have  an  important  effect  on  the  amount  of  shoreside  storage 

that  would  be  needed  for  the  integral  mode  of  operation. 
However,  given  an  estimate  of  the  stochastic  parameters  of  the 
system  which  could  be  obtained  from  a  simulation  model,  the 
amount  of  shoreside  storage  can  be  determined  from  basic  in¬ 
ventory  theory. 

Finally,  the  drop-and-swap  model  could  be  improved  by 
extending  it  to  multiport  trades.  Such  an  extension  would 
complicate  the  problem  significantly,  especially  if  barges  of 
different  sizes  can  be  used.  Most  likely  network  theory  would 
need  to  be  utilized  to  find  the  optimum  tug-barge  systems. 
However,  since  the  stochastic  nature  of  the  problem  would 
probably  be  very  significant  in  multiport  cases  where 
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scheduling  is  of  utmost  importance,  it  may  be  that  only  simu 
lation  models  could  be  used  for  multiport  trades. 


201 


KEY:  $  —  DROP-AND-SWAP  MODE 

-| - INTEGRAL  MODE 


FIGURE  5.1 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 
BASE  CASE  RUN:  ANNUAL  CARGO  FLOW  OF  100,000  LT 
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KEY:  |  —  DROP-AND-SWAP  MODE 

-j - INTEGRAL  MODE 


FIGURE  5.2 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 
BASE  CASE  RUN:  ANNUAL  CARGO  FLOW  OF  600,000  LT 
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KEY:  ^  --  DROP -AND -SWAP  MODE 

-| - INTEGRAL  MODE 


FIGURE  5.3 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 
BASE  CASE  RUN:  ANNUAL  CARGO  FLOW  OF  1,000,000  LT 
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$  —  DROP -AND  -SWAP  MODE 
■j - INTEGRAL  MODE 


FIGURE  5-4 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 
CASE  RUN:  ANNUAL  CARGO  FLOW  OF  6,000,000  LT 
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KEY: 


J  —  DROP-AND-SWAP  MODE 
-j - INTEGRAL  MODE 


FIGURE  5.5 


PLOT  OF 
BASE  CASE  RUN: 


RFR  VS.  TERMINAL  L-D  RATE 
ANNUAL  CARGO  FLOW  OF  10,000,000  LT 
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KEY:  |  —  DROP-AND-SWAP  MODE 

-j - INTEGRAL  MODE 

FIGURE  5.6 

PLOT  OF  KFR  VS.  TERMINAL  L-D  RATE 

SENSITIVITY  RUN:  ANNUAL  CARGO  FLOW  OF  1,000,000  LT 

WITH  CARGO  VALUE  OF  $0 
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FIGURE  5.7 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 

SENSITIVITY  RUN:  ANNUAL  CARGO  FLOW  OF  1,000,000  LT 
WITH  STORAGE  FACILITY  CAPITAL  COST  OF  $48/LT 
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KEY:  J  --  DROP -AND- SWAP  MODE 

-j - INTEGRAL  MODE 

FIGURE  5.8 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 

SENSITIVITY  RUN:  ANNUAL  CARGO  FLOW  OF  6,000,000  LT 
WITH  STORAGE  FACILITY  CAPITAL  COST  OF  $48/LT 
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KEY:  ^  --  DROP -AND- SWAP  MODE 

■j - INTEGRAL  MODE 


FIGURE  5.9 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 

SENSITIVITY  RUN:  ANNUAL  CARGO  FLOW  OF  1,000,000  LT 
WITH  STORAGE  FACILITY  CAPITAL  COST  OF  $48/LT 
WITH  STORAGE  FACILITY  OPERATING  COST  OF  $1/LT 
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KEY:  $  —  DROP -AND -SWAP  MODE 

-| - INTEGRAL  MODE 


FIGURE  5.10 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 

SENSITIVITY  RUN:  ANNUAL  CARGO  FLOW  OF  1,000,000  LT 
WITH  BARGE  DRAFT  LIMITED  TO  38' 
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KEY:  |  —  DROP-AND-SWAP  MODE 
•f  —  INTEGRAL  MODE 


FIGURE  5.11 

PLOT  OF  RFR  VS.  TERMINAL  L-D  RATE 

SENSITIVITY  RUN:  ANNUAL  CARGO  FLOW  OF  1,000,000  LT 
WITH  BARGE  DRAFT  LIMITED  TO  38' 

WITH  STORAGE  FACILITY  CAPITAL  COST  OF  $48/LT 
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TABLE  5.1 


SUMMARY 

OF  INPUTS 

USED  IN 

BASE  CASE 

RUNS 

af lowavel 

minrate 

mindist 

mindwt 

mincb 

minlb 

minbt 

minspeed 

Changes  to  Semifixed 

maxrate 

maxdist 

maxdwt 

maxcb 

maxlb 

maxbt 

maxspeed 

Parameters 

aflowave2 

delrate 

deldist 

deldwt 

delcb 

dellb 

delbt 

delspeed 

100,000 

1,000 

500 

5,000 

0.77 

6.0 

2.0 

6.0 

None 

n 

10,000 

5,000 

50,000 

0.84 

6.6 

3.0 

12.0 

1,500 

1,500 

2,500 

0.01 

0.2 

0.5 

1.0 

600,000 

2,000 

500 

5,000 

0.77 

6.0 

2.0 

6.0 

None 

0 

12,000 

5,000 

70,000 

0.84 

6.6 

3.0 

13.0 

2,000 

1,500 

2,500 

0.01 

0.2 

0.5 

1.0 

1,000,000 

2,000 

500 

5,000 

0.77 

6.0 

2.0 

6.0 

0 

14,000 

5,000 

100,000 

0.84 

6 .6 

3.0 

13.0 

None 

2,000 

1,500 

5,000 

0.01 

0.2 

0.5 

1.0 

6,000,000 

6,000 

500 

5,000 

0.77 

6.0 

2.0 

7.0 

0 

54,000 

5,000 

100,000 

0.84 

6.6 

3.0 

14.0 

None 

8,000 

1,500 

5,000 

0.01 

0.2 

0.5 

1.0 

10,000,000 

10,000 

500 

30,000 

0.77 

6.0 

2.0 

8.0 

0 

80,000 

5,000 

100,000 

0.84 

6.6 

3.0 

16.0 

None 

10,000 

1,500 

5,000 

0.01 

0.2 

0.5 

1.0 
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TABLE  5.2 


TABULAR  OUTPUT  SUMMARY  FOR  BASE  CASE  RUNS 


Port  Separation 
Distance 
(Nautical  miles) 

OUTPUT  PARAMETER 

aflowave 

1  (LT) 

100,000 

600,000 

1,000,000 

6,000,000 

10,000,000 

500 

D&S  Mode  Speed  Range  (Kts) 

Integral  Mode  Speed  Range  (Kts) 

D&S  Mode  DWT  Range (1000  LT) 

Integral  Mode  DWT  Range  (1000  LT) 

D&S  Integral  Mode  L-D  Rate  Tradeoff 
Point  (LT/day) 

%Porttime  is  of  Total  Voyage  Time 
at  L-P  Rate  Tradeoff  Point 

6 

6 

5 

5 

none:  Tntearal  mode 
always  favorable 

7-9 

6-9 

10-15 

7.5-20 

Between  6000 
&  8000 

44-31 

7-10 

6-12 

15-25 

15-40 

Between  8000 
&  10000 

72-59 

8-10 

7-10 

30-70 

40-70 

Between  30,000 
«  3^000 

45-39 

8-10 

8-10 

55-90 

60-85 

Between  40,000 
&  50,000 

37-38 

2000 

D&S  Mode  Speed  Range  (Kts) 

Integral  Mode  Speed  Range  (Kts) 

D&S  Mode  DWT  Range  (1000  LT) 

Integral  Mode  DWT  Ranqe  (1000  LT) 

D&S  Integral  Mode  L-D  Rate  Tradeoff 
Point (LT/day) 

%Porttime  is  of  Total  Voyage  Time 
at  L-D  Rate  Tradeoff  Point 

7-8 

6-9 

7.5 

7.5  -  12.5 

near  1000 

57 

8-12 

7-12 

32.5- 42.5 

27.5- 42.5 

Between  8000 
&  10,000 

35-22 

8-10 

7-12 

30-80 

50-95 

Near  6000 

49 

8- 9 

9- 11 

75-95 

75-100 

Near  38000 

23 

9-10 

10-12 

85-100 

85-100 

None :  D&S 

Mode  always 
favorable 

3500 

D&S  Mode  Speed  Range  (Kts) 

Integral  Mode  Sfw*"d  Range  (Ktn) 

D&S  Mode  DWT  Range  (1000  LT) 

Integral  Mode  DWT  Range  (1000  LT) 

D&S  Integral  Mode  L-D  Rate  Tradeoff 
Point  (LT/day) 

%Porttime  is  of  Total  Voyage  Time 
at  L-D  Rate  Tradeoff  Point 

10-13 

6-9 

10  -  12.5 

10  -  12.5 

Between  1000  & 
2500 

29 

8-9 

8-12 

32.5- 37.5 

27.5- 37.5 

Between  4000 

£  6000 

43-29 

8-11 

8-9 

40-100 

50-100 

Between  4000 

&  6000 

48 

9-10 

10-12 

95-100 

95-100 

None:  D&S 

Mode  always 
favorable 

9 

12-13 

90-100 

90-100 

None :  D&S 

Mode  always 
favorable 

sooo 

D&S  Mode  Speed  Range  (Kts) 

Integral  Mode  Speed  Range  (Kts) 

D&S  Mode  DWT  Range  (1000  LT) 

Integral  Mode  DWT  Range  (1000) 

D&S  Intooral  Mode  L-D  Rate  Tradeoff 
Point  (LT/day) 

tPorttime  is  of  Total  Voyage  Time 
at  L-D  Rate  Tradeoff  Point 

8-10 

6-7 

12.5- 17.5 

12.5- 22.5 

Between  1000  6 

2500 

29 

8-10 

8-11 

37.5- 50 

37.5- 52.5 

Near.  6000 

29 

8-10 

8-10 

45-90 

70-1000 

Between  6000 
&  8000 

36-32 

9-10 

10-13 

90-100 

90-100 

None:  D&S 

Mode  always 
favorable 

9-12 

13-15 

60-100 

60-100 

None:  D&S 

Mode  always 
favorable 

minspeed  Changes  to 
maxspeed  Semixed 

delspeed  Parameter 

6.0  vcargo  =  0 

13.0 

_JL0 _ 


7.0  cflxstor  =  48 

15.0 

1,0 _ 

6.0  cflxstor  =  48 

13.0 

.1,0- - - - 


6.0  cfixstor  =48 

13.0  cvarstor  =  1 

1.0 _ 


5.0  cfixstor  =  48 

12.0  maxtl  =  maxt2  =  38 

1.0  _ 


6.0 

13.0 


maxtl  =  maxt2  =  38 


TABLE  5.4 


TABULAR  SUMMARY  FOR  SENSITIVITY  RUNS 


Port 

SENSITIVITY  RUN  PARAMETERS 

Separation 

Distance 

(Nautical 

Miles) 

OUTPUT  PARAMETERS 

aflowavel* 

aflowavel* 

aflowavel* 

aflowavel* 

1,000,000 

1,000,000 

6,000,000 

6,000, 000 

Base  Case 

. . .  1 

veargo  ■  0 

Base  Case 

cfixstor*48 

soo 

RFR  at  Spacifiad  L-D  rata.  Das  node 

$  6.85  @2000 

$  6.71  @2000 

$  3.87  @6000 

$  3.87  @6000 

RFR  at  Spacifiad  L-D  rate,  Integral  node 

;  13.84 

13.69  " 

7.71 

7.94 

RFR  at  Specified  L-D  rate,  D&S  mode 

5.49  @12000 

5.32  @12000 

2.55  @54000 

2.55  @54000 

RFR  at  Specified  L-D  rate.  Integral  mode  , 

4.65 

4.47 

2.17 

2.30 

RTR  at  L-D  Rate  Tradeoff  Point 

About  $5.55 

About  $5.35 

About  $2.68 

About  $2.65 

DSS/Integral  node  L-D  rata  Tradeoff 

Batwaan 

Between 

Between 

Between 

Point  (LT/day) 

8000  &  10000 

8000  &  10000 

30000  &  38000 

30000  &  38000 

%  Port  Time  is  of  Total  Voyage  Time 

at  L-D  rate  Tradeoff  Point 

72-59 

59-37 

45-39 

45-39 

2000 

RFR  at  Specified  L-D  rate,  D&S  mode 

$14.85  @2000 

$14.31  @2000 

$  8.35  @6000 

$  8.35  @6000 

RFR  at  Specified  L-D  rate,  Inteoral  mode 

21.48 

21.23 

16.03 

16.45 

RFR  at  Specified  L-D  rate,  D&S  mode 

10.46  @12000 

9.56  @12000 

6.17  @54000 

6.17  @54000 

RFR  at  Specified  L-D  rate.  Integral  mode 

8.79 

8.27 

5.84 

6.03 

RFR  at  L-D  Rate  Tradeoff  Point 

11.67 

11.13 

6.14 

6.15 

OSS/ Integral  node  L-D  rate  Tradeoff 

Near  6,000 

Near  6,000 

Near  38,000 

Between 

Point  (LT/day) 

38,000  6  46000 

%  Port  Time  is  of  Total  Voyage  Time 

at  L-D  rate  Tradeoff  Point  ! 

| 

49 

49 

23 

23-19 

3'S00 

RFR  at  Specified  L-D  rate,  D&S  mode 

$19.91  @2000 

$19.16  02000 

$12.08  @6000 

$12.08  @6000 

RFR  at  Specified  L-D  rate.  Integral  mode 

26.82 

25.82 

24.28 

24.84  * 

RFR  at  Specified  L-D  rate,  D&S  mode 

15.03  @12000 

14.10  @12000 

9.85  @54000 

9.85  @54000 

RFR  at  Specified  L-D  rate,  Integral  mode  i 

13.25  “ 

12.24 

10.08 

10.26  " 

RFR  at  L-D  Rate  Tradeoff  Point 

15.85 

about  $14.50 

— 

— 

D&S/Integral  mode  L-D  rate  Tradeoff 

Between 

Between 

None  SDKS  mode 

None:  D&S  mode 

Point  (LT/day) 

4000  &  6000 

6000  &  8000 

always 

always 

%  Port  Time  is  of  Total  Voyage  Time 

favorable 

favorable 

at  L-D  rate  Tradeoff  Point 

48 

48-36 

— 

— 

5000 

RFR  at  Specified  L-D  rate,  D&S  mode 

$24. $6  @2000 

$23.26  @2000  1 

$15.31  @6000 

$15.31  *6000 

RFR  at  Specified  L-D  rate.  Integral  mode  | 

31.42 

29.99 

37.28 

37.79 

RFR  at  Specified  L-D  rate,  D&S  mode 

18.55  @12000 

17.31  @12000 

12.97  @54000 

12.97  @54000 

RFR  at  Specified  L-D  rate.  Integral  mode  i 

16.07 

15.50  " 

15.43 

15.61 

RFR  at  L-D  Rate  Tradeoff  Point 

About  519.25 

About  $17.95 

— 

— 

D&S/Integral  mode  L-D  rate  Tradeoff 

Between 

Between 

None:  D&S  mode 

None:  D&S  mode 

Point  (LT/day) 

6000  &  8000 

6000  &  8000 

always 

always  favorable 

%  Port  Time  is  of  Total  Voyage  Time  | 

favorable 

at  L-D  rate  Tradeoff  Point 

36-32 

32-  24 

! 
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TABLE  S. 4. . . (Continued) 


TABULAR  SUMMARY  TOR  SENSITIVITY 


Port 

Separation 

— 

SENSITIVITY  RUN 

PARAMETERS 

Distance 

OUTPUT  PARAMETERS 

aflowavel- 

aflowavel- 

aflowavel« 

aflowavel* 

(Nautical 

1,000,000 

1,000,000 

1,000,000 

1,000,000 

Milos) 

cfixstor-48 

efix*  tor-48 

cfix*tor*48 

evastor  -  1 

maxtl-38 

maxtl-38 

500 

NFS  at  Specified  L-D  rate,  OSS  node 

$6.35  @2000 

$  5.65  93000 

$  5.65  93000 

$  6.85  @2000 

BFS  at  Specified  L-D  raee.  Integral  node 

14.18  * 

11.61  " 

10.61  " 

13.84  • 

XFR  at  Specified  L-D  rate.  osS  node 

5.49  912000 

5.49  912000 

5.52  @12000 

5.52  @12000 

RPR  at  Specified  L-D  rate#  Integral  mode 

5.04 

6.09  * 

5.36 

5.07 

ant  at  L-D  Sate  Tradeoff  Point 

5.48 

— 

About  $5.50 

About  $5.55 

OSS/Integral  node  L-D  rate  Tradeoff 

Near  10000 

None:  DAS  Mode 

Near  12000 

Between 

Point  (LT/day) 

always 

10000  S  12000 

t  Port  Tina  is  of  Total  Voyage  Tine 

favorable 

at  L-0  rate  Tradeoff  Point 

57 

48 

48-29 

2000 

NFS  at  Specified  L-0  rate,  OSS  node 

$14.85  92000 

$12.50  93000 

$14.43  93000 

$16.05  92000 

RPR  at  Specified  L-D  rate#  Integral  mode 

22.31 

18.85  " 

19.47  " 

22.84 

NFS  at  Specified  L-0  rate,  DSS  node 

10.46  @12000 

10.46  @12000 

12.84  @12000 

12.84  912000 

RFR  at  Specified  L-D  rate#  Integral  mode 

9. 37 

11.05  * 

12.39  " 

12.05 

RPR  at  L-D  Rate  Tradeoff  Point 

About  $10.70 

About  $10.00 

About  $12.80 

About  $$13.45 

DSS/Xntegral  node  L-0  rate  Tradeoff 

Between 

Between 

Between 

Between 

Point  (LT/day) 

10000  £  12000 

18000  fi  21000 

9000  £  12000 

6000  fi  8000 

t  Pert  Tine  is  of  Total  Voyage  Tine 

at  L-0  rate  Tradeoff  Point 

48-29 

32-27 

32-24 

37-32 

3500 

NFS  at  Specified  L-D  rate,  OSS  node 

$19.91  92000 

$16.34  93000 

$20.11  @3000 

$22.90  @2000 

RFR  at  Specified  L-D  rate#  Integral  mode 

27.95 

23.01  • 

26.72 

30.89 

NFS  at  Specified  L-0  rate,  OSS  node 

15.03  912000 

15.03  @12000 

18.85  912000 

18.85  @12000 

RFR  at  Specified  L-D  rate#  Integral  mode 

14.04 

15.04 

18.79  * 

18.29 

NFS  at  L-0  Rate  Tradeoff  Point 

About  $5.30 

About  15.04 

About  19.00 

About  $20,000 

OSS/Integral  node  L-0  raee  Tradeoff 

Near  8000 

12000 

Between 

Between 

Point  (LT/day) 

6000  S  12000 

6000  £  8000 

t  Port  Tine  is  of  Total  Voyage  Tine 

at  L-D  rate  Tradeoff  Point 

36 

24 

24-17 

26-24 

5000 

NFS  at  Specified  L-0  rate,  OSS  node 

$24.56  @2000 

$21.24  93000 

$25.10  @3000 

$29.72  92000 

NFS  at  Specified  L-D  rate.  Integral  node 

33.00  " 

29.35  * 

32.87 

39.44 

RFR  at  Specified  L-0  rate,  DSS  mode 

18.55  @12000 

18.55  @12000 

24.25  @12000 

24.25  @12000 

RFR  at  Specified  L-D  rate#  Integral  mode 

17.20  ■ 

20.20 

24.28 

23.72 

RFR  at  L-0  Sate  Tradeoff  Point 

About  $19.00 

About  $18.05 

About  $24.25 

About  $24.60 

OSS/Integral  node  L-0  rate  Tradeoff 

Near  8000 

Near  15000 

12000 

Between 

Point  (LT/day) 

8000  S  10000 

%  Port  Time  is  of  Total  Voyage  Time 

at  L-D  rate  Tradeoff  Point 

36 

19 

17 

25-19 
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A. 1  FLOWCHART  OF  THE  DROP-AND-SWAP  COMPUTER  MODEL 


l  The  parameters  below 
I  are  inputted  via  the 


terminal  after  the  user 
is  promop ted  with  the 
variable  names  printed 
out  at  the  terminal 


deldist=0? 


. — — input : 

xninspeed  ,maxspeed , 
del speed 


delspeed=0? 


|delspeed=l 


— input : 
mindwt ,maxdwt , 
deldwt 


\  yes  - 

deldwt=o?  y— - ^  deldwt=5000 


2 


-220 


input : 
minbt , maxbt , 
delbt 


delbt=0? 


mint<  2 . 0  \ 

/  or 

minbt  >3.25  or  maxbt  >3.25 
or 

maxbt  <2.0  or  mincb<  a  75 
or 

mincb>0. 85  or  maxcb<0. 75 


,maxcb>0. 85  or  minlb>8. 0 
\.  or 

maxlb  >8.0  s' 


output : 
"Form 

coefficients 
yes  are  out  of 

N-  interpolable 
>^lrangeT'^- - 


output : 
"Please 
specify 
0. 75<cb<0. 85 
6. 0<L/B<8. 0 
2. 0<B/T<3. 25 


iout3=0 


iout3=l? 


iout3=l 


-222- 


_ 

The  program  now  opens  and 
reads  the  data  in  the 
"semifixedparams"  file 
containing  the  present 
values  of  the  following  l 

parameters :  tugopdays ,  ' 

bargeopdays ,  tlink ,  tunlink ,  I 

servmargin,  fuelmargin,  sfc, 
cfuel,  clube,  nrcrew,  cwages,  I 

csubs,  csteelt,  coutfitt,  ‘ 

csteelb,  coutfitb,  ltug,  I 

wmisc,  aother,  admin,  cfixportl, 
cf ixport2 ,  cvarportl,  cvarport2 ,  I 

cfixterm,  cvarterm,  cfixstor, 
cvarstor,  delayl,  delay2,  maxi,  J 

maxb,  maxtl,  maxt2,  disrate, 
econlife,  inflafctr,  vcargo  j 


J L 


output : 
"Input  any 
•changes  to 
semi-fixed 
data  via  get 
data  format" 


Any  changes  to  the  semifixed 
variables  are  inputted  by 
writing  "variable  =  value," 
The  last  change  is 
followed  by  a  semicolon 


yes 


^  output- type=l 


5 


-223- 


-225 


-227- 


-231- 


-232- 


-234 


-235- 


-236- 


-238- 


± 

ttript=sentimet/2  4 
twaitl=0. ;twait2=0. ; 


mintug=ceil (max 


fmf lowavel\ 
\mf lowave2  j 


*ttript/ (30. 5*dwt) ) 


'//0Ss 

1—1. 

II 

to  5^ 

V 

( 

temp=ttript 

> 

(H 

Below  is  the  logic  for 
determining  the  required 
tug  waiting  time  for 
the  drop  and  swap  mode. 
For  dsopt=0,  barges  are 
stationed  at  both  ports. 
For  dsopt=l,  barges 
are  stationed  only  at 
the  port  requiring 
longer  port  operations, 
none  are  stationed  at 
the  other  port  so  the 
tug  must  wait  for  cargo 
operations  there. 


minbargel=minbrgl ; 
minbarge2  =mi nb  r g 2 


dsopt=0 


astorcap=dwt* (minbrgl+minbrg2) *cfixstor 


-244- 


multifctr3* 


max 


£. 035-0 . 0631*minitb*0 .008815* (minitb) 2 
4.466*10“4*(minitb)3;  0.8389 


-245- 


iopt3=l \ 

dwt=mindwt 

& 

speed=min speed 
& 

\  dsopt=0  / 


output : 
Heading 
for 

output 


viopt3=l&iopt=&- 


output : 
prints  detailed 
output  for 
drop  &  swap  mode 


Cxopt3=&iopt=j 


output : 
Prints  detailed 
output  for 
integral  mode 


-246- 


-248- 


yes 


output ; 
distance 
ininbar  gel 
minbarge2. 


output: 
optimum  drop-and- 
swap  and  integral 
mode  parameters : 
dwt,  speed,  rfr 
cb,  b length,  lb, 
bt,  Id,  acost, 
ctug,  charge,  ihp, 
minitb/mintug , 
seatimet,  portimet 
aflowcap,  twaitl 
percent 


output i 
rate 


This  section  just 
sets  up  the  inputs 
for  the  plots 
subroutine  which 
is  only  used  for 
providing  graphic 
plots  of  the 
arrays  such  as 
rfrbl (d,r) 
defined 
j_previous  ly 


-250- 


1  dropanrt  swop:  proo; 

2  dcitrfrbl,  rfrb?,  dwtbl  ,  dwtb2,  speedbl  ,  speedb?,  raintugsl,  mintugs2, 

3  minbargesl,  rainbarges?,  percent)<25,  5 0 )  float  bin; 

u  del  (distance ,  speed,  dwt,  tdwt,  maxi,  maxb,  maxtl,  maxt?,  rate,  5* 

5  Itug,  lbarge,  litb,  bbarge,  dbarge,  tbarge,  displ,  • 

6  rlcadl,  rload3,  runloadl,  runload?,  delayl,  delay?,  bj 

7  aflowavel,  aflowave?,  mflowavel,  mflowave?, 

6  tugopdays,  bargeopdays,  tlink,  tunlink,  twaitl,  twalt2, 

9  servmargin,  fuelmargin,  sfc  ,  temp,  shp,  ihp, 

10  resist,  fueloons,  lubeoons,  raultifctrl,  multifctr2,  multifctr3, 

11  wsteelt,  woutfitt,  wmacht,  wmisc,  csteelt,  coutfitt,  cmacht, 

12  nrorew,  owages,  osubs,  otug,  charge,  ctugbarges,  efuel,  clube, 

13  cfixportl,  cfixport2,  cvarportl,  cvarport2, 

Id  ovarstor,  efixstor,  evarterm,  efixterm, 

19  minbargel,  minbarge?,  minbrgl,  minbrg2,  mintug,  minitb,  tportl,  tport2, 

16  rseafuel,  rlubeoil,  rportfuel,  seatimet,  portimet,  ttript, 

17  disrate,  pvf,  inflafctr,  veargo,  eoonlife,  rfr,  nrtrips,  best1(50),  best2(50), 

18  screw,  afuel,  alube,  amandr,  ainsur,  asupplies,  aport,  atermop,  atermcap,  astorop,  astorcap,  acargo,  aflowcap, 

’5  admin,  aother,  aopcost ,  totopcost,  totcapcost,  acoot)  float  bln; 

26  do  1 ( 1 lcoef ( 66 ) ,  c1(39),  c?(«7),  dt(9),  dq(13),  rc(2,  8,  7,  8),  t(15,  15),  w(15,  15),  eta(15,  15))  float  bin; 

21  aci( lbarge75,  IbargeSO,  lbarge85,  xeb,  xlcb,  x2cb,  x3eb,  dhp,  wa ,  th ,  hr,  propef,  ehp)  float  bin; 

2?  del ( hul lwt(5 ,  hullwt80,  hullwt85,  wsteelb,  woutfitb,  csteelb,  ooutfitb)  bin  float; 

23  dcKmincb,  maxcb,  delcb,  minlb,  maxlb,  dellb,  minbt,  maxbt,  delbt,  lb,  bt,  cb)  dec  float; 

2«  dclCminfbd,  ldfact,  sbrfact,  fbd ,  Id,  volwt)  bin  float; 

25  del (rainspeed ,  maxspeed,  delspeed,  mindwt,  maxdwt,  deldwt ,  mindwttemp,  mindist,  maxdist,  deldist, 

26  minrate,  maxrate,  delrate,  drange,  rrange,  d,  r,  oountr)  fixed  bin; 

27  uclCiopt,  i,  j,  k,  m,  iout,  iout2,  iout3,  iopt3,  output_type,  lnrate,  dsopt,  index)  fixed  bin; 

28  del  nextehar  char(1); 

29  del  power  entry(bin  float,  bin  float,  bin  float,  bin  float,  bln  float,  bin  float,  bln  float, 

3-  oin  float,  bin  float,  bin  float,  bln  float,  bin  fixed,  dim(39)  bin  float, 

3’  aim(d7)  bin  float,  dim(9)  bin  float,  dim(13)  bin  float,  dim(2,  8,  7,  8)  bin  float, 

pj  32  dim(15,  15)  bin  float,  dim(15,  15)  bin  float,  dim(15,  15)  bin  float)  external; 

< _n  33  del  ibit  fixed  bin  static; 

>  3"  eel  ( parameter  s ,  llfact,  powerdata,  sysin)  file  stream  input,  sysprint  file  stream  output; 

35  open  file(llfact)  title(  "vf  ile_  loadl  ine  .data" ) ; 

36  get  file(ilfact)  list(  llcoef) ; 

37  close  filet  1)  fact) ; 

38  open  filet  powerdata)  title("vfile  power  .data"  )  ; 

39  get  sKlp(u)  file(powerdata)  edit(T(  ( (rc(  1 ,  J,  k,  ra)  do  m  =  1  to  8)  do  k  =  1  to  7 )  do  j  s  1  to  8 )  do  1  =  1  to  2)) 

UO  (salpt.?),  7  tool  1 1 ) ,  x(5  ) ,  8  f  (5  ) ) ) ; 

tl  get  skip(5)  filet  powerdata)  edit(((w(i,  j)  do  j  =  1  to  15)  do  i  *  1  to  15))(col(1),  x(5),  15  f(5)); 

tj  get  skip(5)  filet powerdata)  editt ( (eta( i ,  j)  do  j  -  1  to  15)  do  1  =  1  to  15))(col(1),  x(5),  15  f(6)); 

“3  get  skip(5)  filet  powerdata)  edit(((t(i,  J)  do  J  :  1  to  15)  do  1  =  1  to  15)){col(1),  x(5),  15  f<5)); 

tu  get  skip(3)  filet  powerdata)  listt  cl ,  c2,  dt,  dq); 

a5  close  f i 1 e t po werd ata) ; 


1  1  /* - BEGIN  include  file  plo t_en try_dc ls.lncl.pll  - */ 

1  2 

1  3  del  piot_  ext  entry  (float  bln  dimension  (•),  float  bin  dimension  (*),  fixed  bln,  fixed  bln,  char  (1)), 

1  “  plot  isetup  ext  entry  (char  (*),  char  (*),  char  (*),  fixed  bin,  float  bln,  fixed  bln,  fixed  bln), 

1  5  plot~$scale  ext  entry  (float  bln,  float  bin,  float  bln,  float  bln); 

1  c 

1  7  del  (Vectors_only  initial  (1),  /»  vec_sw;  fourth  arg  to  plot_  •/ 

1  6  Vectors  and  symbols  initial  (2), 

1  9  Symbols_only  Initial  (3), 

1  1 G 

’  ’1  1. 1  fn;ar_i  Incur  Initial  (1),  /*  type;  fourth  arg  to  plot_$setup  •/ 

1  12  Log_linear  initial  (2), 

1  13  Linearlog  initial  (3), 

1  1“  Log  log  Initial  (d), 

1  15 
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’  16  Tick_marks  initial  (0),  /*  grid  aw;  fifth  arg  to  plot_$setup  */ 

1  17  Dotted  grid  initial  (1), 

1  13  Solid_grid  initial  (2), 

1  19  No  grid  initial  (3), 

1  20 

1  21  Normal_scaling  Initial  (0),  /*  eq_scale_sw;  sixth  arg  to  plot_$setup  */ 

1  22  Equal  scaling  initial  (1))  fixed  bin  static  options  (constant); 

1  23 

1  ?b  /*  END  include  file  plot  entry  dcls.incl  .pll  — - */ 

u6 

“7  /*  input  basic  changeable  parameters  via  get  list  statements  */ 


st:  put  listC’Input  via  list  format  the  following  parameters:"); 

^9  put  skip(2)  editCDo  you  wish  to  specify  individual  port  L-D  rates?:  ") 

5C  (ool(l),  a); 

51  call  yesno; 

5?  ir.rate  -  ibit; 

53  if  inrate  =  1  then  do; 

5“  put  skip  editO'rloadl  ,  runloadl,  rload2,  runload2:  *)(a); 

55  get  listfrloadl,  runloadl,  rload2,  runload?); 

55  delrate  =  1 ; 

57  minrate  =  0;  maxrate  =  0; 

53  go  to  sp; 

59  end; 

60  put  skip  edit( "minrate ,  maxrate,  delrate:  H)(a); 

6’  get  1 ist( minrate ,  maxrate,  delrate); 

6?  if  delrate  =  0  then  delrate  =  1000; 

63  sp:  put  skip  ed it( "mind ist ,  maxdist,  deldist:  ")(a); 
i>  get  1 ist(mind ist ,  maxdist,  deldist); 

65  if  deldist  =  0  then  deldist  *  1000; 

65  put  skip  edit(  "minspeed ,  maxspeed,  delspeed:  ")(a); 

67  get  1  ist(minspeed ,  maxspeed,  delspeed); 

62  if  delspeed  =  0  then  delspeed  e  1; 

69  put  skip  ed  it(  "mindwt ,  maxdwt,  deldwt:  ")(a); 

70  get  list(mindwt,  maxdwt,  deldwt); 

71  if  deldwt  =  0  then  deldwt  z  5000; 

7?  r.indwttemp  =  mindwt; 

73  put  s<ip  ed it( "aflowavel ,  aflowave2:  ")(a); 
get  1 ist( aflowavel ,  aflowave?); 

75  if  aflowavel  z  O.eO  then  do; 

76  rloadl  =  O.eO; 

77  runload?  z  O.eO; 

76  end; 

79  if  aflowave2  =  O.eO  then  do; 

30  rload?  =  O.eO; 

z'  runloadl  =  O.eO; 

6?  end; 

63  /*  input  form  parameters  of  tug-barge  system  */ 

-  a  s  1 2 ; 

65  put  skip  editC'mincb,  maxcb,  delcb:  ")(a); 

£6  get  list(mincb,  maxcb,  delcb); 

67  if  delcb  =  O.eO  then  delcb  =  0.1; 

63  put  SKip  edit( "minlb,  maxlb,  dellb:  ")(a); 

63  get  listtminlb,  maxlb,  dellb); 

90  ir  dellb  =  O.eO  then  dellb  =  0.2; 

9'  put  3kip  ed it( "mlnbt ,  maxbt,  delbt:  H)(a); 

92  get  list(minbt,  maxbt,  delbt); 

33  if  delbt  =  O.eO  then  delbt  =  0.1; 

9“  if  minbt<2 . 0  i  minbt>3.25  !  maxbt>3.25  !  maxbt<2.0  i  mincb<0.75  i  mincb>0.85  I 

95  maxcb<0.75  !  raaxcb>0.85  !  minlb>8.0  \  maxlb>8.0  then  do; 

96  put  skip  listC'Form  coefficients  are  out  of  interpolable  range.  Please  specify:"); 
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97  put  skip  list("0.75-cb-0.85  6.0-L/B-8.0  2. O-B/T-3. 25") ; 

98  iout  3  =  1; 

99  go  to  st  2; 

109  end; 

101  if  iout3  =  1  then  do; 

1C2  iout3  =  0; 

1 03  go  to  st  3; 

ICS  end; 

105  /*  input  basic  semifixed  parameter  values  via  parameter  file  */ 

106  open  filet  parameters)  titlet  "vfile_  semif  ixedparams  .data")  ; 

'07  get  filet  parameters)  editt  tugopdays ,  bargeopdays,  tlink,  tunlink, 

1C8  servmargin,  fuelmargin,  sfc ,  cfuel,  clube,  nrcrew, 

199  cwages,  csubs,  csteelt,  coutfitt,  csteelb,  coutfitb,  ltug,  wmisc,  aother, 

119  admin,  cfixportl,  cfixport2,  cvarportl,  cvarport2,  cfixterm,  cvarterm,  efixstor,  cvarstor, 
1''  delayl,  delay2,  maxi,  maxb,  maxtl,  maxt2, 

112  disrate,  econlife,  inflafctr,  vcargo) ( skipt 3 ) ,  38(col(21),  f(12,  2))); 

113  close  filet  parameters) ; 

1'u  put  skip  edit("input  changes  to  semifixed  data  via  get  data  format”)  (a) ; 

115  get  datat  tugopdays ,  bargeopdays,  tlink,  tunlink, 

116  servmargin,  fuelmargin,  sfc,  cfuel,  clube,  nrcrew, 

117  cwages,  csubs,  csteelt,  coutfitt,  csteelb,  coutfitb,  ltug,  wmisc,  aother, 

11?  admin,  cfixportl,  cfixport2,  cvarportl,  cvarport2,  cfixterm,  cvarterm,  efixstor,  cvarstor, 
1'9  delayl,  delay?,  maxi,  maxb,  maxtl,  maxt2, 

129  disrate,  econlife,  inflafctr,  vcargo); 

121.  put  skip  edit("Do  you  want  printed  output?:  "){col(1),  a); 

122  call  yesno; 

123  output_type  =  ibit; 

l?u  if  output_type  =  1  then  do; 

125  put  skip  edit("Do  you  want  detailed  output?:  ")(col(1),  a); 

126  call  yesno; 

127  iopt  3  =  ibit; 

126  end; 

125  /*  this  segment  initializes  various  variables  */ 

139  st3:  iout  =  0; 

131  iKmaxdist  -  mir.dist)  <  1  i  deldist  <  1  then  drange  *  1; 

'3?  else  drange  =(maxdist  -  mindist)/deldist  +  1; 

’3?  iffmaxrate  -  minrate)  <  1  !  delrate  <  1  then  rrange  e  1; 

13a  else  rrange  =(maxrate  -  minrate) /del rate  ♦  1; 

135  do  distance  =  mindist  to  maxdist  by  deldist; 

I5?  d  =(distance  -  mind ist) /deldist  +  1; 

137  do  rate  =  minrate  to  maxrate  by  delrate; 

136  r  =(rate  -  minrate) /delrate  ♦  1; 

139  if  inrate  =  0  then  do; 

1  tQ  rloadl  =  rate; 

iai  rload2  =  rate; 

ia,2  rur.loadl  =  rate; 

l“i  runload2  s  rate; 

lua  end; 

’.65  iout  2  =  0; 

ia6  if  rate  "=  minrate  then 

'.a7  mindwt  =  max(  1 . Ce3*min( best  1  (2 ) ,  best2(2 ) )-2.*deldwt ,  mindwttemp); 

163  else  mindwt  =  mindwttemp; 

1-5  bestl  =  O.OeO; 

150  best2  e  O.CeO; 

151  best  1 ( 1 )  e  9. 99e2; 

152  best2( 1 )  =  9.99e2; 

153  mflowavel  =(aflowave 1*3 . 65e2)/( 1 . 2e 1 ‘bargeopdays) ; 

15a  mflowave2  =<af  lowave2*3. 65e2)/(  1 . 2e  1  "bargeopdays) ; 

155  if  rloadl  =  O.eO  I  runloadl  =  O.eO  then 

156  if  rloadl  =  O.eO  then  minbargel  =  ceil(mflowave2/( 3. 05e1 ‘runloadl ) ) ; 
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\ 


c; 


157 

158 

159 

160 
161 
1 62 
’63 
16“ 

165 

166 
167 
163 
169 
173 

171 

172 

173 
17“ 

175 

176 

177 
173 
179 
’  63 
la’ 
162 
163 

■*  P  <4 

165 

1 66 
167 
166 
1  69 

1 90 

191 
’92 
193 
19“ 

195 

196 

197 
1  96 
199 
2CJ 
2-3  ’ 
202 
23  3 
20“ 

205 

206 
207 
206 
209 


else  minbargel  =  cei 1 ( mf lowave  1/( 3 . 05e 1 ‘rloadl  ) ) ; 
else  minbargel  =  ceil( mflowavel /( 3 . 05e  1*rloadl )  ♦  raflowave2/(3. 05e1*runload1 ) ) ; 
if  rload2  =  O.eO-  !  runload2  =  O.eO  then 

if  rload2  =  O.eO  then  minbarge2  =  oeil( mflowave1/( 3. 05e1*runload2) ) ; 
else  minbarge2  =  ceil (mflowave2/( 3. 05e1*rload2 ) ) ; 
else  minbarge2  =  ceil(mflowave2/(3.05e1*rload2)  +  mflowave1/(3. 05e1*runload2) ) ; 
minbrgl  =  minbargel;  minbrg2  =  minbarge2; 

/*  outermost  loop-lterate  barge  size  */ 

dwtlp: 

do  dwt  =  mindwt  to  maxdwt  by  deldwt; 

/*  in  this  section  the  cost  of  the  barge  and  its  principal  dimensions  must  be  •/ 

/*  determined  as  a  function  of  cdwt.  For  the  time  being  empirical  relations  »/ 

/*  will  be  used  until  a  formal  costing  routine  is  developed.  */ 

do  cb  =  mincb  to  maxcb  by  delcb; 
xcb  =  2. * ( cb  -  0.75); 
xlcb  =  1.0  +  ( xcb-3. 0)*xcb/2. 0; 
x2cb  =(xcb-2.0)*xcb; 
x3cb  = ( xcb-1 . 0)*xcb/2. 0; 
do  lb  =  roinlb  to  maxlb  by  dellb; 
do  bt  -  mlnbt  to  maxbt  by  delbt; 

lbarge75  =  exp( 1 .  128)*lb»»0.7“2*bt*«0. 382»dwt»*0. 336; 
lbarge80  =  exp(  1 .  108 )* lb* *0 . 739*bt* *0. 381 »dwt * *0 . 336; 
lbarge85  =  exp(  1 . 088  )*lb“0. 737*bt»»0 . 379*dwt»*0. 336; 
lbarge  =  Ibarge75*x1cb  -  Ibarge80*x2cb  +  Ibarge85*x3cb; 
hull  wt75  =  exp(-6.206)»bt“0.88**»lb“1.3*l8»dwt“1.10*t; 
hullwt80  =  exp(-6 . 396  )‘bt“0 . 909*lb“1 . 368*dwt**1 .111; 
hullwt85  =  exp(-6.569)»bt“0.93O‘lb“1.391‘dwt“1.117; 
wsteelb  =  hul 1 wt75 *x1 cb  -  hul Iwt80*x2cb  +  hullwt85‘x3cb; 
do  j  =  1  to  50; 

bbarge  =(lbarge  ♦  0. 7*ltug) /lb; 

tbarge  =  bbarge/bt; 

temp  =  cb* lbarge‘bbarge‘tbarge/35.  ; 

woutfitb  =  max( 1 . “96*lbarge  -  28“.2“,  50.); 

displ  =  woutfitb  +  wsteelb  +  dwt; 

lbarge  =  (35*displ‘ <  lbarge/ bbarge)  “2»bt/cb)  “0. 333333333; 
if  absCtemp  -  displ)  <  I.eO  then  go  to  Hoop; 
end ; 

put  skip  listC'Barge  length  routine  does  not  converge."); 

1 1  oo  p : 

if  lbarge  >  750.  then  do; 

put  skip  edit("barge  length  exceeds  750'",  "lbarge  =  ",  lbarge,  "dwt  =  ",  dwt) 

(a,  a,  f(6),  a,  f(6)); 
go  to  endcblp; 
end ; 

charge  s  1 . 0e3*(wsteelb*csteelb  ♦  woutf itb*coutfitb) ; 
if  lbarge  =  750.  then  minfbd  =  llcoef(66); 
else  do; 

countr  =  ceil ( (lbarge-99. 99999)/10. ) ; 

minfbd  =  llcoef( countr)  +( llcoef( eountr+1 )-llcoef( countr) )*( lbarge-90. -10. ‘countr) /10. ; 
end; 

minfbd  =  minfbd*(cb  +  0 . 68 > / 1 .  38 ; 

if(  lbarge/(minfbd/12.  +  tbarge))  <  15.  then  do; 

if  lbarge<393.6  then  ldfact  = (tbarge  ♦  minfbd/12.  -  lbarge/15. ) *( lbarge/1  31 . 2)/< 1 -lbarge/ ( 1 2. *1 31 . 2) ) 


210  else  ldfact  =(tbarge  +  minfbd/12.  -  lbarge/15.)*1*.; 

211  end; 

212  else  ldfact  =  0.  ; 

213  shrfact  =  0. 0375»lbarge  «■  3.75; 

21“  fbd  =  0. 75 ‘(minfbd  +  ldfact  ♦  shrfact); 

215  dbarge  =(tbarge  ♦  fbd/12.); 

216  volwt  =(35. ‘displ  +  lbarge*bbarge*(dbarge-tbarge)  -  22**0.*(wsteelb+woutfitb)/**90.  )/42.  ; 


255 


\c  > 


\c/ 


217  Id  =  lbarge/dbarge j 

213  litb  =  lbarge  ♦  7.e-1"ltug; 

2 ’  9  if  ( tb.arge>max  1 1 )  J  ( tbarge)max  t2)  !  ( 1  i tb>maxl )  j  (  bbarge>maxb)  i  ( Id  >  16.) 

220  then  go  to  endbtlp; 

221  /*  intermediate  loop-iterate  over  tug/barge  speed  */ 

222  /*  caleuation  of  tug  IHP  */ 

222  if  litb/bbarge  <  5.99  I  litb/bbarge  >  8.01  i ( ( litb/bbarge  <6.19  i  litb/bbarge  >  7.61)  4(cb  <  0.775  I  cb 

0.635)) 

22“  then  do; 

225  /*  put  skip  editCL/B  and/or  CB  are  out  of  interpolable  ranges:  ","L/B  =  ",1b,",  CB  =  ",cb,  * 


225 

227 

222 

229 

23C 

25’ 

w,  eta) 

232 

233 
23“ 

235 

235  /* 
237 

236 
239 
2  “0 
2“  1 
2“2 
2“3 

?“5 

2“6 

2«7 

2“3 

2-9 


/»  ",  litb/bbarge  =  " , litb/bbarge) (a,  3(a,f (5 , 2) ) ) ;  */ 

go  to  endlblp; 
end ; 

do  speed  =  minspeed  to  max  speed  by  del  speed; 

/*  this  is  where  the  external  subroutine  power  is  called  to  determine  dhp  •/ 

call  power(litb,  bbarge,  tbarge,  cb,  speed,  wa ,  th,  hr,  propef,  ehp,  dhp,  index, 

if  index  s  1  then  do; 

go  to  endbtlp; 
end; 

resist  =  550. *ehp/( 1 . 68781 "speed) ; 
nere  1  am  assuming  5%  appendage  drage  and  10}  linkage  drag  */ 
shp  =  1. 15*dhp/0. 98; 
ihp  =(1.0e0  +  servraarg in ) "shp ; 

/*  calculate  tug  cost  using  univ  of  michigan  study-July  77  — single  screw  tug  •/ 
wsteelt  =<6.#e-1»(ihp/1.0e3)**2  +  1 . 679e1*ihp/ 1 . 0e3  ♦  3.78e2); 
woutfitt  =(1.866e-1*( ihp/1 . 0e3 )**2  +  2. 733e0»ihp/ 1 . 0e3  ♦  1.5«e2); 
wraacht  = (-8 . 889e-2*( ihp/ 1 . 0e3 )»»2  +  3. 288e1«lhp/ 1 . 0e3  +  9.999e0); 
cmacht  =  1 . 3*( 3 . 1#e-l "ihp  +  1.730e3); 

ctug  = (wsteel t"csteel t  ♦  woutfitfcoutfltt  ♦  cmacht)*1 .0e3; 

/*  calculation  of  annual  operating  costs  */ 

/*  drop  and  swap  opcosts  */ 
iopt  =  0; 
dsopt  s  0; 

if  rloadl  =  O.eO  !  runloadl  =  O.eO  then 


2  50 
2r.  1 
25? 

25  3 
25“ 

255 

256 

257 

2 58  dslp: 

259 
265 
251 
262 
263 
26“ 

265 

265 

267 

268 

269 

270 

271 

272 
27  3 
27“ 

275 


if  rloadl  =  O.eO  then  tportl  =  2 . be  1 "dwt /runload  1 ; 
else  tportl  =  2.  **e1*dwt/rload1 ; 

else  tportl  =(dwt/rloadl  +  mflowave2*dwt/(mflowave1"runload1 ) )*2. bel ; 
if  rload2  =  O.eO  i  runload.?  =  O.eO  then 

if  rload2  =  O.eO  then  tport2  =  2. be1*dwt/runload2 ; 
else  tport2  =  2. uei»dwt/rload2; 

else  tport2  =(dwt/runload2  ♦  mflowave2*dwt/(mflowave  1*rload2 )  )*2 .  bel ; 
seatimet  =  2 *( distance/speed  +  tlink  ♦  tunlink)  ♦  delayl  +  delay2; 
ttript  =  seatimet/2. bel; 

mintug  s  ceil ( max (mflowavel ,  mflowave?) "ttript/ ( 3. 05e 1*dwt) ) ; 

/*  iterative  calculation  of  ttript,  twaitl,  twait2,  and  mintug  */ 
twaitl  *  0.0;  twait2  =  0.0; 
do  j  =  1  to  50; 
temp  x  ttript; 
if  dsopt  =  0  then  do; 

minbargel  =  minbrgl;  minbarge?  =  minbrg2; 

twaitl  *  max(0.e0,  5. e- 1 *( min tug‘max ( tport 1 /minbarge 1 ,  tport2/minbarge2)  - 
twait2  =  twaitl; 
end ; 

else  do; 

/*  Calculations  for  D  4  S  mode  with  unbalanced  trade  —  no  barges  at  one  port  */ 

if  rloadl  ♦  runloadl  >  rload2  ♦  runload2 
then  do; 

minbargel  =  O.eO; 
twaitl  =  tportl; 

twait2  :  max(0.e0,  mintug* (tport2/mlnbarge2)  -(seatimet  *  tportl)); 


cl ,  c2,  dt,  dq. 


seatimet) ); 


rc, 


256 


276 

277 
273 
279 
260 
281 
262 
233 
26a 
235 
2  66 
287 
266 
283 
290 

251 

252 

293  next3: 

29a 

255 

255 
297 

256 
259 
300 
301 

302  itblp: 

30  3 
30a 
305 
'•06 

30  7 

308  next1*: 

309 

310 
3  "1 1 
3  ’  2 
3’  3 
31* 

31 5 

31  6 
3’7 
3  ’  3 
3’ 9 

320 

321 

322 

32  3 
3?a 
325 
.326 
3.27 

323 
32  9 

330 

331 

332 

333 
33“ 

3  35 
336 


end; 

else  do; 

minbarge2  =  O.eO; 
twait2  =  tport2; 

twaitl  s  max(0.e0,  mintug* ( tport 1/minbarge 1 )  -(seatiraet  ♦  tport2)); 
end ; 
end ; 

ttript  =(seatimet  *  twaitl  +  twait2)/2. #e1 ; 

mintug  s  ceil (max ( mflowave 1 ,  mflowave2)»ttri pt/( 3. 05e1*dwt ) ) ; 

If  abs(temp  -  ttript)  <  l.Oe-3  then  go  to  next3; 
end ; 

if  iout2  =  0  then  do; 

put  listC'Rttug  does  not  coverge.  Divergence  is:"  ,( temp-ttript) ) ; 
put  data(dwt,  speed,  rate,  distance); 
iout2  =  1 ; 
end ; 

go  to  itblp; 

if(twait1  ♦  twait2)  >  =  (tport.1  +  tport2)  then  do; 

put  skip  1 ist( "Waiting  time  exceeds  porttime.  No  advantage  in  drop  and  swap  mode."); 
put  skip  data(dwt,  speed,  rate,  distance); 
go  to  itblp; 
end ; 

portimet  =  twaitl  +  twait2; 
go  to  next*; 

/*  integral  tug/barge  opcosts  »/ 
iopt  r  1 ; 

seatimet  =  2*distance/speed  ♦  delayl  +  delay2; 

portimet  =  tportl  +  tport2; 

ttript  =(seatimet  +  portimet)/2.*e1 ; 

minitb  =  ceil ( max (mflowavel ,  mflowave2)*ttrlpt/( 3. 05e1*dwt) ) ; 

rseafuei  =  shp*sfc/2. 2*0e3; 
rlubeoil  =  shp*2.5e-*; 
rportfuel  s  1.25e-1; 
acrew  =(cwages  <•  csubs) "nrcrew ; 

fuelcons  =  rseafuel*seatimet  *  rportfuel*portimet ; 
lubecons  =  rlubeoil*seatimet ; 
nrtrips  =  tugopd ays/ ttr ipt ; 

tdwt  =  dwt  +  (1.0e0  +  fuelmargin)  "fuelcons  +  wmisc; 

aflowcap  =  nrtrips'dwt; 

afuel  a  fuelcons*nrtrips*cfuel ; 

alube  =  lubecons*nrtr ips*elube  ; 

amandr  =  1.5*(1.288e2  +  u . 539e0»ihp/1 . 0e3  -  «. 0e-2"( ihp/1 . 0e3 )»"2  +  2. «77e0"tdwt/1 . 0e3 

-  9. 107e-3*(tdwt/1.0e3)**2)*1.0e3; 

ainsur  =  1.5*(2.10e2  +  3.6e-3"ihp  +  1 . 8e-3"td wt ) *  1 . 0e3 ; 

asuppiies  =  1.3*(*.0e1  +  1.8e-3*ihp  +  2 . 6e-**tdwt )  "1 . 0e3 ; 

aport  =  (cfixport1  +  cfixport2  +(cvarportl  +  cvarport2)*dwt ) "nrtrips; 

acargo  =  vcargo* ( af lowave 1  +  aflowave2) "disrate* seatimet/ (k8. *365. ) ; 

atermop  a  (aflowavel  +  aflowave2)*cvarterm; 

atermcap  =  ((rloadl  +  runloadl )*minbrg1  +  (rload?  +  runload2)*minbrg2)*cfixterm; 
astorop  =  (aflowavel  ♦  aflowave2) ‘uvarstor ; 
astorcap  =  dwt"(minbrg1  ♦  minbrg2 )*cf ixstor ; 
aopcost  a  acrew  *  afuel  ♦  alube  +  aother  *  amandr  ♦  ainsur 
+  asuppiies  +  aport; 

pvf  =(1.0e0  -(I.OeO  +  disrate) ""-econl i fe ) /disrate ; 

/*  compute  totai  annual  costs  •/ 

if  mintug  *=  1  then  multifctrl  *  max(0.8389,  1.035  -  0. 0631 "mintug  ♦  0. 0086 . 5*mintug*"2 

-  0. 000a«66»mintug"»3); 
else  multifctrl  -  1.; 
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\cnbarge2) 

336 

339 

3“0 

3“’ 

3"  3 
3“3 

344 

3“5 

JU6 

3“7 
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3“9 

353 

35’. 

333 

35  3 
35“ 
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356 

357 
353 
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\cctug''  1  .e6 , 
365 
361 

\  =  )  ,  f  ( -J .  1)  , 
363 

\e,  f ( 6 , 3) ) ; 
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\  c  .  “  6  , 
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373 
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376 
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379 
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33’ 
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363 
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388 


If  (minbargel  ♦  minbarge?)  *=  0  then  multlfctr2  =  max(0. 8389,  1.035  -  0. 0631 *(mintug  +  minbargel  +  mi 

■  +  0. 00881 5*(mintug  «■  minbargel  *  mlnbarge2)**2  -  0.0004466*(mintug  ♦  minbargel  +  minbarge2)**3); 
if  minitb  *=  1  then  multifctr3  =  max(0.8389,  1.035  -  0. 0631 *minitb  +  0. 00881 5*minitb**2 
♦  0.0004466»minitb**3); 
else  multifctr3  si.; 
if  iopt  =  0  then  do; 

ctugbarges  s  1.1*((ctug  +  charge) *mintug*multi fctrl  +  charge* (minbargel  +  minbarge2)*mul tifc tr2 ) ; 
totcapcost  s  ctugbarges  +  atermcap; 

totopcost  s  aopcost*aintug  ♦  3 .e-2*cbarge* (minbargel  +  minbarge2)  ♦  atermop  +  acargo  +  admin; 
end; 

else  do; 

ctugbarges  =  1.1*(ctug  +  cbarge)*minitb*mul ti fc tr3 ; 
totcapcost  s  ctugbarges  *  atermcap  ♦  astorcap; 

totopcost  s  aopcost*minitb  +  astorop  ♦  atermop  ♦  acargo  *  admin; 
end; 

acost  s  (totcapcost/pvf  +  totopcost) *(  1 .  ♦  inflafctr); 
rfr  =  acost/ ( aflowave  1  +  aflowave2); 

if  iopt 3  =  1  4  dwt  =  mindwt  A  speed  =  minspeed  &  dsopt  s  0  then 

put  skip( 3 )  edit( "  DWT  SPD  RFR  CB  BLENGTH  L/B  B/T  L/D  ACOST  CTUG  CBARGE  IHP  ", 

"MOTUG/ITB  NRTRIPS  SEATIMET  P0RTIHET  AFLOWCAP  TWAIT1/*", 

"( 1 000 )  (KTS )  ($)»,  "  ( $M)  ($M)  (AM) " ,  "(DAYS)  (DAYS)  (DAYS)") 

(a,  a,  cold),  a,  col(49),  a,  col(97),  a); 

if  iopt3  s  1  A  iopt  =  0  then  put  skip  edit(dwt/1  .e3,  speed,  rfr,  cb,  Xbarge,  lb,  bt,  Id,  acost/1.e6, 

cbarge/1.e6,  ihp,  mintug,  nrtrips,  seatimet/2*. ,  portimet/24. ,  aflowcap,  twaitl/2*.) 

(x(1),  f ( 3  ) ,  x( 2 ) ,  f (“ ,  1 ) ,  x(1),  f(6,2),  x(1),  f  ( 4 , 2) ,  x<1),  f(5,1),  x(3),  f(*,2),  x( 1 ) ,  f(4,2),  x(1 

3(x( 1  ) ,  f (7 , 3) ) ,  x(1),  f(5 ) ,  x(«) ,  f(2) ,  x(6  ) ,  f(6,2),  x(2),  f(6,2),  x(2),  f(7,2),  x(2),  f(7),  x(2) 

else  if  iopt3  =  14  iopt  =  1  then  put  skip  edit(dwt/1  .e3,  speed,  rfr,  cb,  Ibarge,  ib,  bt,  id,  acost'1 

ctug/1.e6,  cbarge/1.e6,  ihp,  minitb,  nrtrips,  seatimet/24. ,  portimet/24. ,  aflowcap,  4.  1666*portime 


(x(1), 

,  f ( 3 ) ,  x ( 2  ) ,  f(4, 

1), 

x(1), 

f  (6, 

2),  x(1),  f ( 4 ,  2), 

x(1> 

,  f (5 ,  1), 

x(3) 

.  f(«,  ?). 

x(1),  f ( 4 , 

f  (  4  , 

1),  3( x( 1 ) ,  f (7 , 

3)), 

x(1), 

f  (5 ) 

,  x(4),  f ( 2 ) ,  x(6 ) , 

f  (6. 

2),  x(2), 

f(6, 

2),  x (2 ) , 

f (7,  2),  x ( 

x(2) ,  f(3)>; 

if(iopt  =  0)  4(rfr  <  bestl(l))  then  do; 
best  1(1)  =  rfr  ; 
best  1  (2 )  =  dwt/1 .e3; 
best1(3)  =  speed; 
best1(4)  =  acost/1.e6;; 
best1(5)  =  ctug/1.e6; 
best1(6)  -  cbarge/1.e6; 
best  1(7)  =  aopcost; 
best  1(8)  =  totopcost; 
best1(9)  =  ctugbarges; 
bestl(IO)  =  alube; 
best  1(11)  =  afuel; 
best1(12)  =  amandr; 
best1(13)  =  ainsur; 
best1(14)  s  asupplies; 
best1(15)  =  aport; 
best1(16)  :  resist; 
best  1 (17)  =  ihp; 
best1(18)  =  nrtrips; 
best1(19>  =  mintug; 
best1(20)  =  Ibarge; 
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3S9 

best1(?1)  s  bbarge; 

393 

best1(22)  s  tbarge; 

391 

.  best1(23)  ^  displ; 

39? 

best  1  (2“)  =  portimet/2“. 

393 

best  1(25)  s  seatlraet/2“. 

39J 

best1(26)  s  ttript; 

399 

best1(27)  =  aflowcap; 

396 

best  1(28)  3  twait1/2“. ; 

397 

best  1(29)  3  twalt?/2“. ; 

393 

best1(30)  s  minbargel; 

399 

best  1(31)  3  minbarge2; 

“00 

best  1 (32)  3  cb; 

“0! 

best  1(33)  3  lb; 

“02 

best  1(3“)  3  bt; 

“33 

best  1(35)  s  Id; 

“0“ 

If  dsopt  3  0  then  do; 

“35 

dsopt  3  1 ; 

“36 

go  to  dslp; 

“37 

end; 

“33 

else  go  to  itblp; 

“39 

end; 

“TO 

else  if(lopt  3  0)  &  dsopt  s 

“11 

dsopt  3  1 ; 

“12 

go  to  dslp; 

JU 

end; 

else  if  iopt  3  0  then  go  to 

“15 

lf(iopt  3  1)  &(rfr  <  best2( 

“15 

best2(1)  s  rfr; 

“’7 

best2(2)  3  dwt/1 .e3; 

“i  a 

best2(3)  3  speed; 

“19 

best2(“)  3  acost/1.e6; 

“23 

best2(5)  3  ctug/1.e6; 

“21 

best2(6)  s  cbarge/1.e6; 

“22 

best2(7)  3  aopcost; 

“?3 

be3t2(8)  s  totopcost; 

“2“ 

best2(9)  3  ctugbarges; 

“25 

best2(10)  3  alube; 

“26 

bestP(tl)  3  afuel; 

“27 

best2(12)  3  amandr; 

“28 

best2(13)  3  ainsur; 

“29 

best2(1“)  3  asupplies; 

“33 

best2(15)  3  aport; 

“31 

best2(l6)  3  resist; 

“32 

best2(17>  3  ihp; 

“33 

best2(18)  3  nrtrips; 

best2( 1 9)  3  minitb; 

*35 

best2(20>  3  lbarge; 

“36 

best2(21)  s  bbarge; 

“37 

best2(22)  s  tbarge; 

“id 

best2(23)  3  displ; 

“39 

best2(2“)  3  portinet/24. 

be.it2(25)  3  seat lmct/2“. 

““  < 

best2(26)  3  ttript; 

““2 

best2(27)  =  aflowcap; 

“M 

best2(28)  3  cb; 

“““ 

best2(29)  3  lb; 

““5 

best2(30)  3  bt; 

““5 

best2(31 )  3  id; 

““7 

end; 

““8 

end; 

““9  endbtlp: 

end ; 

■  0  then  do; 
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“SO  endlblp:  end; 

“S’  endcblp:  end; 

“52  endwtlp:  end; 

“5  3  next5: 

“5“  rfrb1(d,  r)  =  bestl(l);  dwtb1(d,  r)  x  best1(2);  speedbKd,  r)  x  best1(3);  mintugsl (d ,  r)  x  best1(19); 

“SS  rfrb2(d,  r)  =  best2(1);  dwtb2(d,  r)  x  best2(2);  speedb2(d,  r)  x  best2(3);  raintugs2(d,  r)  x  best2(19); 

“56  minbarges  1  (d ,  r)  =  best1(30);  percent(d,  r)  =  100.*best2(2“)/best2(26); 

“57  minbarges2(d ,  r)  =  best1(31); 

“53  if  lout  =  0  then  do; 

“59  /*  output  of  input  parameters  in  put  data  format  */ 

“60  put  skip(2)  edit( "aflowavel  x  ",  aflowavel,  "minrate  x  ",  minrate,  "mindist  x  ", 

“61  mindist,  "minspeed  =  ",  minspeed,  "mindwt  x  ",  raindwt ) (r( format  1 )) ; 

“62  put  skip  edit(  "aflowave2  x  ",  aflowave?,  "maxrate  =  ",  maxrate,  "maxdist  x  ", 

“63  maxdist,  "maxspeed  x  ",  maxspeed,  "maxdwt  =  ",  oaxdwt ) (r( format  1 )) ; 

“6“  put  skip  edit( "delrate  x  ",  delrate,  "deldist  -  ", 

“65  deldist,  "delspeed  x  ",  delspeed,  "deldwt  x  ",  deldwt) 

“66  (col (25 ) ,  a,  f(6),  col(50),  a,  f (6  ) ,  ool(75),  a,  f(6,  2),  ool(IOO),  a,  f <  8  )  > ; 

“67  formatl: 

“63  format ( eol(1 ) ,  a,  f(8),  col(25),  a,  f(6),  col(50),  a,  f<6),  col(75),  a,  f(6,  2),  col(IOO),  a,  f(8)); 

“69  put  skip(2)  editC'raaxl  =  ",  maxi,  "tugopdays  x  ",  tugopdays,  "servmargin  =  ", 

*-70  servmargin,  "csteelt  x  ",  osteelt,  "csteelb  x  ",  csteelb)  (r(  format2) ) ; 

“71  put  skip  edit("maxb  x  ",  maxb,  "bargeopdays  =  ",  bargeopdays,  "fuelmargin  x  ", 

“7?  fuelmargin,  "coutfitt  =  ",  coutfitt,  "coutfitb  x  ",  coutfltb) (r( format2) ) ; 

“73  put  skip  edit("maxt1  =  ",  maxtl,  "tlink  x  ",  tlink,  "sfc  x  ",  sfo, 

“7“  "cwages  =  ",  cwages,  "cfixportl  x  ",  cfixport  1 )  (r(  format2) ) ; 

“75  put  skip  edit(”maxt2  =  ",  maxt2,  "tunlink  =  ",  tunlink,  "ofuel  =  ",  cfuel, 

“76  "csubs  x  ",  osubs,  "ofixport2  =  ",  ofixport2)(r(  format2)); 

“77  put  skip  edit(”ltug  =  ",  ltug,  "delayl  =  ",  delayl,  "elube  =  ",  clube, 

“73  "nrcrew  =  ",  nrcrew,  "cvarportl  =  ",  ovarportl  )(r( format 2) ) ; 

“79  farmat2: 

“55  formatCcoK 1 ) ,  a,  f<8,  2),  ool(25),  a,  f(6),  ool(50),  a,  f(8,  2),  col(75),  a,  f(8,  2),  col(IOO),  a,  f(8,  2)); 

“ol  put  skip  edit("delay2  =  ",  delay?,  "voargo  =  ",  vcargo,  "cvarport2  =  ",  ovarport2) (col(25) ,  a,  f(6),  col 


“o’ 

\c(50) ,  a , 
“c? 

“63 

\ o  ",  siabt, 
03a 
“65 

,c  rr.axbt, 

“06 

“57  fo 
“5  8 
“s  9 
“90 

\orterm) 


format3: 


f (8,  2),  col(IOO),  a,  f (8 ,  2)); 
put  skip(2)  editC'aother  x  ",  aother,  "disrate  x 

"cvarstor  x  ",  cvarstor)  (r( format 3) ) ; 
put  skip  editC'admin  x  ",  admin,  "econlife  x  " 

"cfixstor  x  ",  cfixstor)  ( r(  format3) ) ; 


:  ",  disrate,  "mincb  x  ",  mlncb,  "minlb  x  ",  mlnlb,  "minbt  x 

",  econlife,  "maxcb  x  ",  maxcb,  "maxlb  x  ",  maxlb,  "maxbt  x  ", 


format  (cold),  a,  f(10,2),  col(25),  a,  f  (6 , 2) ,  col(50),  a,  f<6,2),  col(67),  a,  f(6,1),  col(8*0,  a,  f(6,1), 
coldOO),  a,  f  ( 8 , 2 ) ) ; 

put  skip  editC'pvf  s  ",  pvf,  "delcb  x  ",  delcb,  "dellb  x  ",  dellb,  "delbt  x  ",  delbt,  "cvarterra  x  ",  c\ 

(col  ( 25 ) ,  a,  f  ( 6 , 2) ,  col(50),  a,  f(6,2),  col(67),  a,  f(6,1),  col(8«),  a,  f(6,1),  coldOO),  a,  f(8,2)); 
put  skip  ed  it(  "infl  afc  tr  x  ",  inflafctr,  "cfixterm  x  ",  cflxterm)  (col(25),  a,  f(6,2),  coldOO),  a,  f(8,2)); 
if  output_type  x  1  then 

put  ski p( 3 )  edit( "  DWT  SPD  RFR  CB  BLEHCTH  L/B  B/T  L/D  ACOST  CTUG  CBARGE  1HP  ", 

"NO  TUG/ITB  NRTRXP5  SEATIMET  PORT1MFT  AFLOWCAP  TWAIT1/%", 

"( 1C00 ) (KTS )  ($)",  " ( $H)  ($M )  ($M) " ,  "(DAYS)  (DAYS)  (DAYS)") 

(a,  a,  cold),  a,  col(49),  a,  col(97),  a); 
iout  x  1  ; 
end ; 


500  if  output_type  x  1  then  do; 

6-d  if  inrate  x  0  then  put  skip(2)  edit("rate  x  ",  rateXa,  f(8)); 

502  put  editd'distance  x  ",  distance,  "minbargel  x  ",  best1(30), 

507  »minbarge2  =  ",  best  1 ( 3 1 ) )  ( col d  ) ,  3(x(2),  a,  f ( 8  > ) > ; 

50“  put  skip  ed  it(  best  1  (2) ,  best1(3),  bestld),  best1(32),  best1(20),  best1(33),  bestIO1*)  best1(35),  best1(“),  best 

\c!  (5), 

505  best  1(6),  best1(17),  best1(19),  best1(18),  best1(25),  best1(2«),  best1(27),  best1(29)) 


hJ 

CTl 

O 


516 

\c“,  ’), 

537 

538 

\c?  (5 ) , 

539 
5  1  0 

\cu,  ) , 
5’  ’ 

\c; 

5’  ? 
5’  7 
5’  a 
5' 5 
5’6 
5  ’  7 
■3 '3 
5’S 

523 
52’ 
522 
5?  - 
5,?ii 
52  5 
525 
527 

52  & 
5--- ; 
5  13 
57’ 
5  77 
5  7  3 
53“ 
575 
5  75 
577 


575 

5“  3 

5"’ 

5^7 

527 

S1* 

5~s 


-.a  , 

5^-3 


55  '! 
55? 
55  3 
55“ 

555 

556 

557 
55  S 
559 
563 
561 


(x(1),  f  ( 3 ) ,  x  ( 2 )  i  f(“:,  1),  x(1),  f  (6 ,  2),  x(1),  f(«,  2),  x(1),  f(5,  1),  x(3)  ,  f(«,  2),  x(1),  f(«,  2),  x(1),  f( 
3(x( 1 ) ,  f (7,  3)),  x(1),  f(5),  x(b),  f(2),  x(6) ,  f(6,  2),  x(2),  f(6,  2),  x(2),  f(7,  2),  x(2),  f(7),  x(2>,  f(6, 


put  skip  edit(best2(2) ,  best2(3),  best2(1),  best2(28),  best2(20),  best2(29),  best2(30),  best2(31),  best2('i)1  best 
best2<6),  best2( 1 7 ) ,  best2(19),  best2(18),  best2(25),  best2{2«),  best2(27),  100*best2(2U) /best2(26) ) 


(x(1), 

f  (  3 ) , 

x (2 ) , 

fC,  1),  x(1),  f(6,  2), 

x(1), 

f(«, 

2), 

x(1), 

f<5, 

1). 

x(  3)  , 

f(“, 

2), 

x(1  ), 

f(«, 

2),  x ( 1  )  ,  f( 

3! x(  1 ) 

,  f<7, 

3)), 

x ( 1  ) ,  f (5 ) ,  x(«),  f ( 2 ) , 

x(6 ) , 

f  (6 , 

2), 

x(2), 

f!6, 

?>, 

x(2)  , 

f  (7 , 

2). 

x  (2 ) , 

f(7 ) 

,  x(2),  f( 3)  ) 

end ; 

er.d;  end; 

put  skip  edit(”Do  you  wish  graphic  output?:  ")(col(1),  a); 
call  yesno; 

if  ibit  =  0  then  go  to  st ; 

put  skip  edit! "Do  you  wish  to  plot  rfr  vs.  rate  while  varying  distance?:  ") 

(ccl( 1  ) ,  a) ; 
call  yesno; 

if  ibit  =  1  then  call  plots! "REQUIRED  FREIGHT  RATE  VS  LOAD/DISCH  RATE  WHILE  VARYING  DISTANCE", 
"TOIIS  PER  DAY",  "RFR-$",  rfrbl ,  rfrb2,  0); 
put  skip  edit("Do  you  wish  to  plot  rfr  vs.  distance  while  varying  rate?:  ") 

(col ( 1  ) ,  a) ; 
call  yesno; 

if  ibit  =  1  then  call  plots! "REQUIRED  FREIGHT  HATE  VS  DISTANCE  WHILE  VARYING  L-D  RATE”, 
"MILES",  "RFR-$" ,  rfrbl ,  rfrb?,  1); 

put  skip  edit("Do  you  wish  to  plot  barge  DWT  vs.  L/D  rate  while  varying  distance?:  ") 

(coif  1  ) ,  a) ; 
call  yesno; 

if  ibit  =  1  then  call  plots! "BARGE  DWT  VS  LOAD/DISCHARGE  RATE  WHILE  VARYING  DISTANCE", 

"TOIIS  PER  DAY" ,  "DWT",  dwtbl,  dwtb2,  0); 

put  skip  edit("Do  you  wish  to  plot  barge  DWT  vs.  distance  while  varying  L/D  rate?:  ") 

(col! 1  ) ,  a) ; 


call  yesno; 

if  ibit  =  1  then  call  plots("BARGE  DWT  VS  DISTANCE  WHILE  VARYING  L/D  RATE", 

"MILES",  "DWT",  dwtbl,  dwtb?,  1); 

put  skip  edit! "Do  you  wish  to  plot  tugspeed  vs.  L/D  rate  while  varying  distance?:  H) 
'cold),  a); 


call  yesno; 

if  ibit  =  I  then  call  plotsCTUG  SPEED  VS  LOAD/DISCHARGE  RATE  WHILE  VARYING  DISTANCE", 

"TONS  PER  DAY",  «KTS" ,  speedbl ,  speedb2,  0); 
put  skip  editCDo  you  wish  to  plot  tugspeed  vs.  distance  while  varying  L/D  rate?:  ") 

(col! 1  ) ,  a) ; 
call  yesno; 

if  ibit  =  1  then  call  plots!  "TUG  SPEED  VS  DISTANCE  WHILE  VARYING  L/D  RATE", 

"MILES",  "KTS" ,  speedbl,  speedb2,  1); 

put  skip  editf"Do  you  wish  to  plot  the  minimum  no.  of  required  tugs  vs  L/D  rate  while  varying 
(cold  )  ,  a); 


Distance? : 


call  yesno; 

if  ibit  =  1  then  call  plots! "MIN.  NO.  OF  TUGS  REQUIRED  VS  L/D  RATE  WHILE  VARYING  DISTANCE", 

"TONS  PER  DAY",  "NO.  !  TUGS",  mintugsl,  mintugs2,  0); 
put  skip  editCDo  you  wish  to  plot  the  minimum  no.  of  required  tugs  vs  distance  while  varying  L/D  rate?: 

(col ( 1  ) ,  a) ; 
call  yesno; 

if  ibit  =  1  then  call  plots("MIN.  NO.  OF  TUGS  REQUIRED  VS  DISTANCE  WHILE  VARYING  L/D  RATE", 

"MILES",  "NO.  i  TUGS",  mintugsl,  mintugs2,  1); 

put  skip  edit!  "Do  you  wish  to  plot  no.  of  barges  required  at  pert  1  and  port  2  under  DAS  ", 

"vs  L/D  rate?:  ")(coI(l),  a,  a); 
call  yesno; 

if  ibit  =  1  then  call  plots("MIN  NO.  BARGES  REQUIRED  AT  PORT  1  AND  PORT  2  VS  L/D  RATE  ", 

"TONS  PER  DAY",  "NO.  i  BARGES",  minbarges 1 ,  minbarges2,  0); 


") 


") 


261 


66?  put  skip  editP'Do  you  wish  to  plot  portiroe  %  ys.  L/D  rate  while  varying  distance?:  ")  (cold),  a); 

561  cull  yesno; 

56k  if  ibit  =  1  then  call  plotsP'PORTIME  *  VS  LOAD/DISCHARGE  RATE  WHILE  VARYING  DISTANCE", 

666  "TONS  PER  DAY",  "t  PORTIME/TRIPTIME" ,  percent,  percent,  0); 

566  go  to  st; 

567  yesno:  proc; 

666  do  j  =  1  to  8; 

569  get  ed it( nextchar) (a( 1  ) ) ; 

570  if  nextchar  s  "Y"  !  nextchar  =  "y"  i  nextchar  a  "1"  then  do; 

57’  ibit  =  1; 

57?  get  skip; 

571  return; 

57“  end; 

575  if  nextchar  *  "N"  !  nextchar  a  "n"  i  nextchar  *  "0"  then  do; 

576  ibit  =  0; 

577  get  skip; 

571  return; 

k?9  end; 

550  i  b  i  t  a  0 ; 

5c’  get  skip; 

6c?  return; 

65?  end; 

55u  end  yesno; 

555  plots:  proc(blurb1,  blurb?,  blurb3,  ol,  o?,  graph_type); 

556  dcKblurbl,  blurb?,  blurb?)  char(*); 

5o7  del (o’ (* ,  *),  o?(»,  *))  float  bin; 

665  del ( x ,  yl,  y?)(?50)  float  bin; 

659  dcKxmin,  xmax ,  ymin,  ymax)  float  bin; 

69,  del  graph_type  fixed  bin; 

59’  stgr : 

55?  call  plot_$setup( blurbl ,  blurb?,  blurb?,  1,  OeO,  1,  0); 

59?  put  skip  editP'Do  you  wish  to  specify  graph  scales?:  ")(col(1),  a); 

59“  call  yesno; 

595  if  ibit  a  1  then  do; 

556  zmin  =  O.eO;  xmax  =  O.eO;  ymin  a  O.eO;  ymax  a  O.eO; 

657  put  skip  edltP'Specify  xmin,  xmax,  ymin,  ymax  via  get  data  format:  ") 

55c  (ool( 1  ) ,  a) ; 

659  get  skip  datatxrain,  xmax,  ymin,  ymax); 

650  cull  plot_$3cale( xmin ,  xmax,  ymin,  ymax); 

61’  end; 

61?  if  graph_type  a  0  then  do; 

60  3  do  d  a  1  to  drange; 

60k  do  r  :  1  to  rrange; 

606  x(r)  =  minrate  +(r  -  1)*delrate; 

656  yl(r)  a  ol (d  ,  r); 

607  y?(r)  a  o2(d,  r); 

6,3  end; 

659  call  plot_(x,  yl,  rrange,  2,  "*"); 

6’9  call  plot_(x,  y2,  rrange,  2,  "+"); 

61’  end;  end; 

o’?  if  graphtype  a  1  then  do; 

613  do  r  a  1  to  rrange; 

6’k  do  d  a  1  to  drange; 

fc’5  x(d)  —  mindist  +(d  -  1)*deldist; 

6 ’ 6  y  1  (d)  a  o!(d,  r); 

6  ’  7  y  2 ( d )  a  o2(d,  r); 

6’o  end; 

6’9  call  plot_(x,  yl,  drange,  2,  "*"); 

6?G  call  plot_(x,  y 2,  drange,  2,  "+"); 

6?’  end;  end; 
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622  put  skip  editCDo  you  wish  to  revise  plot?: 
621  call  yesno; 

62“  if  ibit  =  1  then  go  to  stgr; 

625  return; 

626  end  plots; 

627  end  drop  and_swap; 


")(col(1 ) ,  a); 
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\jM> 


SOURCE  FILES  USED  IN  THIS  COMPILATION. 


LINE  HUMBER  DATE  MODIFIED  .  NAME  PATHNAME 

0  01/06/79  23“9.5  drop  and  swap.pll  >udd>Barges>Kaskin>drop  and  swap.pll 

“6  1  01/27/78  1116.0  plot_entry_dcls.incl.pll  >ldd>lnclude>plot_entry[33cls.incl  .pll 

\j'.-  NAMES  DECLARED  IN  THIS  COMPILATION. 


IZz NT  IF  IE  R 

OFFSET  LOC 

STORAGE  CLASS 

DATA  TYPE 

ATTRIBUTES  AND  REFERENCES 

.‘.AMES  DECLARED  BY 

DECLARE  STATEMENT. 

3-3  argo 

033275 

automatic 

float 

bin(27) 

del 

“ 

set 

ref 

325 

3«1 

350 

3  JOSt 

03330“ 

automatic 

float 

bin(?7) 

del 

U 

set 

ref 

312 

313 

759 

363  772  “19 

acre  w 

033262 

automatic 

float 

bin(?7) 

del 

u 

set 

ref 

312 

330 

hZ7~-  I  ?i 

033277 

automatic 

float 

bin<  27) 

del 

u 

set 

ref 

107 

111 

3“1 

310  “85 

ssi _ .  »  j  V 6 

03301“ 

automatic 

float 

bin( 27 ) 

del 

u 

set 

ref 

7“  71  113  325  326  328  353 

“60 

af_Oi»  3Ve? 

037011 

automatic 

float 

bin(27) 

del 

n 

set 

ref 

7“  79  11“  325  326  328  353 

“62 

3  f  .  0  WC  a  p 

033276 

automatic 

float 

bin(27) 

del 

u 

set 

ref 

317 

319 

763 

395  ““2 

a  fuel 

033263 

automatic 

float 

bln  (27) 

del 

a 

set 

ref 

318 

330 

379 

“26 

air.sur 

033266 

automatic 

float 

bin<  27 ) 

del 

a 

set 

ref 

322 

730 

381 

“28 

al  jbs 

03326“ 

automatic 

float 

bin(27) 

del 

“ 

set 

ref 

319 

330 

778 

“21 

fir.  ar.dr 

033265 

automatic 

float 

bin(27) 

del 

a 

set 

ref 

320 

330 

380 

“27 

a: p co st 

031301 

automatic 

float 

bin(27 ) 

del 

a 

set 

ref 

330 

3“1 

310 

771  “22 

30  trier 

033300 

automatic 

float 

bin( 27 ) 

del 

a 

set 

ref 

107 

1  11 

330 

“83 

a  ^  0  r  t 

033270 

automat ic 

float 

bin(27) 

del 

a 

set 

ref 

32“ 

330 

787 

“30 

3.3  to  re  a  p 

03327“ 

automatic 

float 

bin(?7) 

del 

a 

set 

ref 

129 

3“9 

is  c  1 0  r  0  p 

033273 

automatic 

float 

bin(27) 

del 

a 

set 

ref 

328 

350 

ies 

033267 

automatic 

float 

bin(27) 

del 

a 

set 

ref 

323 

330 

382 

“29 

a  terTicap 

033272 

automatic 

float 

bin(27) 

del 

a 

set 

ref 

327 

^aa 

3“9 

aternop 

033271 

automatic 

float 

b ini 27 ) 

del 

a 

set 

ref 

326 

3“1 

310 

oar  geo  plays 

033021 

automatic 

float 

bin(27) 

del 

a 

set 

ref 

107 

111 

113 

11“  “71 

fciarge 

033002 

automatic 

float 

bin<27) 

del 

a 

set 

ref 

186 

187 

188 

191  216  219  2 

23  223 

223 

223  231  389  “36 

test 

033116 

automatic 

float 

bln(27) 

array 

del 

“  set  ref  1“6  1“9  111  368  369 

770  371 

172  171  17“  175  776  777  178  779  780  781  78?  787 
38“  781  786  787  788  789  790  791  39?  791  19“  391 
396  397  398  399  “00  “01  “02  “03  “63  “6“  “5“  “8“ 
“56  “17  102  102  10“  10“  10“  10“  10“  10“  10“  10“ 
50“  50“  50“  50“  50“  10“  10“  10“  50“  10“ 

test?  033200  automatic  float  bin(27)  array  del  “  set  ref  1“6  110  112  “11  “16  “17  “18 

l»19  H?o  “?1  S22  “?3  “?“  “25  “’6  “27  “28  “29  “30 
“71  “72  “17  “3“  “71  “36  “37  “38  “19  ““0  ““1  ““2 
““7  “uu  ““5  u“6  “51  “51  “15  “51  “56  “16  108  508 
108  108  108  108  108  108  108  108  108  108  108  108 
108  108  108  108  108 


b  i  ur  b  1 

parameter 

char 

unaligned  del  586  set  ref  181 

191 

1 1  -rb? 

parameter 

char 

unaligned  del  586  set  ref  181 

591 

bi  jr  b  1 

parameter 

char 

unallgned  del  186  set  ref  185 

191 

cl 

036710 

automatic 

float 

dec  ( 1  0) 

del  23  set  ref  176  177  178  179 
191  319  367  “02  ““1 

'  181 

182 

183 

187 

c ' 

037“07 

automatic 

float 

bin(?7) 

array  del  20  set  ref  ““  231 

c  ; 

033“56 

automatic 

float 

bin( 27 ) 

array  del  20  set  ref  ““  231 

cb 

036713 

automatic 

float 

dec(  10) 

del  23  set  ref  170  171  188  191 
231  359  363  “00  «“3 

207 
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bin(27) 

wo-tfitb 

0366*7 

automatic 

float 

bin(27) 

W  J  wt.  f  1  tt 

0330*3 

automatic 

float 

bin(27) 

w  o  t  e  e  1  o 

0366*6 

automatic 

float 

bin(27) 

wsttelt 

0330*2 

automatic 

float 

bin(27) 

X 

000100 

automatic 

float 

bin (27) 

x’cb 

036632 

automatic 

float 

bin(27> 

x2cb 

036633 

automatic 

float 

bin (27) 

xi  cb 

03663# 

automatic 

float 

bin(27) 

xeb 

036631 

automatic 

float 

bin (27) 

xr.sx 

001*57 

automatic 

float 

bin(27) 

xnin 

001*56 

automatic 

float 

bin (27) 

•  •  i 

j 

000*72 

automatic 

float 

bln(27) 

00106* 

automatic 

float 

bin(27) 

ynax 

001*61 

automatic 

float 

bin(27) 

yroin 

001*60 

automatic 

float 

bin(27 ) 

7#  86  89  92  115  569  572  577  581  599 
output  stream  del  3#  set  ref  3“  *8  #9  5*  60  63 
66  69  73  8#  88  91  96  97  11*  121  125  19#  197  288 

289  295  296  35*  359  363  *60  *62  #6*  *69  “71  *73 

#75  *77  *81  #83  #85  #90  #92  #93  501  502  50#  508 

51*  517  522  527  532  537  5«2  5*7  552  557  562  593 

597  622 

array  del  20  set  ref  #3  231 

del  #  set  ref  187  188  208  209  210  215  216  219 

219  231  390  *37 

del  #  set  ref  316  320  320  322  323 

del  4  set  ref  188  192  263  285  288 

del  21  set  ref  231 

del  #  set  ref  107  115  257  #73 

del  «  set  ref  3##  3*9  352 

del  #  set  ref  3#5  350  352  376  *23 

del  *  set  ref  2*9  251  252  266  27*  275  280  293 

305 

del  #  set  ref  253  255  256  266  275  279  280  293 
305 

del  *  set  ref  258  259  263  283  28*  285  288  306 

307  315  363  39*  *#1 

del  *  set  reT  107  115  315  #69 

del  *  set  ref  107  115  257  #75 

del  «  set  ref  261  266  267  27*  280  283  2 93  299 

359  396 

del  4  set  ref  261  267  275  279  283  293  299  397 

del  4  set  ref  107  115  325  #81 

del  2#  set  ref  216 

array  del  20  set  ref  #1  231 

del  21  set  ref  231 

del  #  set  ret  2*2 

del  4  set  ref  107  115  316 

del  2?  set  ref  189  190  201  216 

del  4  set  ref  2*1  244 

del  2?  set  ref  18*  190  201  216 

del  4  set  ref  2#0  24* 

array  del  588  set  ref  605  609  610  615  619  620 

del  21  set  ref  172  180  18* 

del  21  set  ref  173  180  18# 

del  21  set  ref  17#  180  18# 

del  21  set  ref  171  172  172  173  173  17#  17# 

del  589  set  ref  596  599  600 

del  589  set  ref  596  599  600 

array  del  588  set  ref  606  609  616  619 

array  del  588  set  ref  607  610  617  620 

del  569  set  ref  596  599  600 

dal  589  set  ref  596  599  600 
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NAMES  DECLARED  BY  EXPLICIT  CONTEXT 


dr;>p_ancj  swap 

P03“3“ 

constant 

entry 

external  del  1  ref  1 

d  S  a  p 

010255 

constant 

label 

del  258  ref  258  “06  “12 

ewii  p 

005732 

constant 

label 

del  165  ref  165 

enaLti p 

01 3“20 

constant 

label 

del  #“9  ref  219  233  ““9 

s'icblp 

01  3“30 

constant 

label 

del  “51  ref  199  “51 

s'-iiblp 

013“2“ 

constant 

label 

del  “50  ref  227  “50 

er.owpip 

013“3« 

constant 

label 

del  “52  ref  “52 

format1. 

003361 

constant 

format 

ref  “60  “62 

fornat2 

003304 

constant 

format 

ref  “69  “71  “73  “75  “77 

format  3 

003215 

constant 

format 

ref  “83  “85 

itc  Ip 

01057“ 

constant 

1  abel 

del  302  ref  292  297  302 

404  41“ 

iioop 

007322 

constant 

label 

del  195  ref  192  195 

r.ex  t3 

010513 

constant 

label 

del  293  ref  285  293 

next# 

010625 

constant 

label 

del  308  rer  300  308 

r.ex  to 

01 3“«1 

constant 

label 

del  “53  ref  “53 

plops 

022002 

constant 

entry 

internal  del  585  ref  520 

525  530  535  5“0  5“5 

560 

555  560  56“  585 

sp 

00“ 320 

constant 

1  abel 

del  63  ref  58  63 

St 

00“ 1 “7 

constant 

label 

del  “8  ref  “8  516  566 

St? 

00“532 

constant 

label 

del  8“  rer  8“  99 

Zt  5 

005331 

constant 

label 

del  130  ref  103  130 

s  t  r 

0220“0 

constant 

label 

del  591  ref  591  62“ 

yesao 

021627 

constant 

entry 

internal  del  567  ref  51 

122  126  515  519  52“  1 

529 

53“  639  544  5“9  56“  569  1 

563  567  59“  623 

a  AM FS  DECLARFD 

BY 

CONTEXT 

OR  IMPLICATION. 

si  OS 

builtin 

function 

internal  ref  192  285 

ceil 

bull  tin 

function 

Internal  ref  155  157  158 

159  161  162  20“  259 

38“ 

307 

exp 

builtin 

function 

internal  ref  177  178  179 

181  182  183 

rr.ax 

builtin 

function 

internal  ref  1“6  189  259 

266  266  275  280  28# 

307 

33“  337  339 

rr.in 

builtin 

function 

Internal  ref  1“6 

OTDrAGE  R  ECU  1 3  EM  ENTS  FOR 

THIS  PROGRAM. 

Object 

Text 

Link 

Symbol 

Defs 

Static 

Start 

0 

0 

23132 

23206 

22726 

231“2 

length  2^10 

22726 

5“ 

1166 

203 

6 

EL  DC  K  NAME 

jrsp_and_swap 

yesr.o 

pl-.ts 


STACK  SIZE  TYPE 

16“96  external  procedure 
236  Internal  procedure 
1030  internal  procedure 


WHY  NONQUICK/WHO  SHARES  STACK  FRAME 
is  an  external  procedure. 

contains  a  format  statement,  and  uses  I/O  statements, 
contains  a  format  statement,  and  uses  I/O  statements. 


THE  FOLLOWING  EXTERNAL  OPERATORS  ARE  USED  BY  THIS  PHOGRAH. 


f  x ’_ta_fl2 
cal l_ex  t_out 
ex  t_entry 
open 

cet_edit  eis 
del  p  dbT 


r_l_a 

call_int_this_desc 

int_entry 

close 

get  list_els 
reaT_p_real 


r_g  a 

calT_int_this 

int_entry_desc 

trunc_fx2 

real  to  real_rd 

put_TieTd 


r  e  as 

calT_int_other 

get_end 

ceilfl 

any_to_any_rd 

put_field_chk 


r_ge_a 

return 

put_end 

put  data  eis 

diwlde_fx1 

put_eontrol 


call  ext  out  desc 

fl2_to_fx1 

stream_io 

put  llst_eis 

exp~ 


A. 3  DICTIONARY  OF  VARIABLES  USED  IN  THE 
DROP-AND-SWAP  COMPUTER  MODEL 


DEFINITION  OF  VARIABLES  IN  THE  PROGRAM  "drop-and-swap" 


V ar iable  Definition  (units) 

acargo:  Annual  Time  Value  for  Cargo  Cost.  Total  annual 

cost  for  the  time  value  of  the  cargoes  onboard 
the  barge  while  being  transported.  The  product 
of  the  annual  discount  rate  times  the  seatime 
times  the  cargo  value.  ($) 

acost:  Annual  Cost.  Total  annual  cost  for  either 

drop-and-swap  or  integral  OGTB  system,  including 
annual  operating  costs  and  annualized  present 
value  share  of  capital  costs.  ($) 

acrew:  Annual  Crew  Cost.  Annual  costs  for  crew, 

including  wages  and  subsistence,  for  a  tug. 
( $  /  tug ) 

admin:  Annual  Administrative  Costs.  Annual  costs  for 

adminstrat ion  of  tug.  ($/tug) 

aflowavel:  Annual  Average  Cargo  Flow  from  Port  1.  Average 

annual  flow  of  cargo  to  be  loaded  at  Port  1  and 
discharged  at  Port  2.  (cargo  units) 

aflowave2:  Annual  Average  Cargo  Flow  from  Port  2.  Average 

annual  flow  of  cargo  to  be  loaded  at  Port  2  and 
discharged  at  Port  1.  (cargo  units) 

aflowcap:  Annual  Flow  Capacity.  Annual  amount  of  cargo  ca¬ 

pacity  provided  by  each  tug,  product  of  barge  DWT 
and  number  of  tug  voyages.  (cargo  units) 

afuel :  Annual  Fuel  Cost.  Annual  cost  for  fuel  for  a 

tug;  product  of  the  number  of  tug  voyages,  fuel 
consumption  per  voyage,  and  unit  cost  of  fuel. 
( $ / tug ) 

ainsur:  Annual  Insurance  Premiums.  Annual  cost  for  in¬ 

surance  for  a  tug-barge  unit.  ($ /tug-bar ge) 
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alube  : 

am  and  r : 

aopcost : 

aother : 

apor t : 

astorcap : 

astorop: 

asuppl ies : 

atermcap : 

atermop : 


Annual  Lube  Oil  Costs.  Annual  cost  for  lube  oil 
for  a  tug;  product  of  the  number  of  tug  voyages, 
lube  oil  consumption  per  voyage  and  unit  cost  of 
lube  oil.  ($/tug) 

Annual  M&R  Costs.  Annual  cost  for  maintenance 
and  repair  of  a  tug-barge  unit.  ($/tug-barge) 

Annual  Operating  Cost.  Annual  costs  for 
operating  a  tug-barge  unit.  ( $/tug-barge) 

Annual  Other  Costs.  Other  annual  miscellaneous 
operating  costs  not  included  in  admin,  afuel, 
alube,  ainsur,  amandr,  acrew,  asupplies,  and 
aport.  ($/tug) 

Annual  Port  Charges.  Annual  costs  for  port 
charges  for  each  tug,  including  variable  and 
fixed  charges  for  Port  1  and  Port  2.  ($/tug) 

Annual  Capital  Cost  for  Storage  Facilities.  The 
cost  for  shoreside  storage  facilities  required 
for  the  integral  mode  of  operation.  The  product 
of  the  number  of  loading/discharging  facilities, 
the  barge  size,  and  a  cost  factor  ( "cfixstor" ) . 
($) 

Annual  Operating  Costs  for  Storage  Facilites. 
The  annual  operating  cost  incurred  for  the  opera¬ 
tion  or  use  of  shoreside  storage  facilities 
required  for  the  integral  mode  of  operation.  The 
product  of  the  annual  cargo  flows  and  a  cost  fac¬ 
tor  ( "cvarstor" ) .  ($/yr) 

Annual  Supplies  Cost.  Annual  costs  for  stores, 
supplies,  and  equipment  for  each  tug-barge  unit. 
($/tug-barge) 

Total  Capital  Cost  for  Loading/Discharging 
Facilities.  The  capital  cost  for  shoreside  ter¬ 
minal  facilities.  The  product  of  the  terminal 
facilities  throughput  rate  and  a  cost  factor 
( "cfixterm”)  .  ($  ) 

Annual  Operating  Cost  for  Loading/Discharging 
Facilities.  The  annual  operating  costs  incurred 
for  the  operation  or  use  of  the  shoreside  termi¬ 
nal  facilities.  The  product  of  the  annual  cargo 
flows  and  a  cost  factor  ( "cvarterm" ) .  ($/yr) 
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bargeopdays:  Barge  Operating  Days.  Number  of  days  during  the 
year  which  a  barge  is  expected  to  be  available 
for  operations,  (days) 

bbarge:  Barge  Beam,  (ft) 

bestl:  Storage  Matrix  that  saves  the  best  values  found 

for  various  drop-and-swap  mode  variables 
(specified  below)  for  a  specified  port  separation 
distance  and  port  loading  and  discharge  rate 
while  iterating  over  tug  speed,  barge  DWT,  and 
barge  form. 

best2:  Same  as  '’bestl"  except  for  integral  mode. 


bestl (1  ) , 

best2(1 ) 

— 

rfr 

bestl (2 ) , 

best2(2 ) 

- 

dwt/1000 

best  1(3), 

best2(3 ) 

- 

speed 

bestl (4 ) , 

best2(4 ) 

- 

acost/1000000 

best  1(5), 

best2(5 ) 

- 

ctug/1 000000 

bestl  (6 ) , 

best2(6 ) 

- 

cbarge/1 000000 

best  1(7), 

best2(7 ) 

- 

aopcost 

bestl (8 ) , 

best2(8 ) 

- 

totopcost 

bestl (9 ) , 

best2(9 ) 

- 

ctugbarges 

bestl(IQ),  best2(10)  -  alube 
bestl(ll),  best2(11)  -  afuel 
best1(12),  best2(12)  -  amandr 
best1(13),  best2(13)  -  ainsur 
best1(14),  best2(14)  -  asupplies 
best1(15),  best2(15)  -  aport 
best1(16),  best2(16)  -  resist 
best1(17),  best2(17)  -  ihp 
best1(18),  best2(18)  -  nrtrips 
best1(19),  best2(19)  -  mintug,  minitb 
bestl (20),  best2(2Q)  -  lbarge 
bestl (21),  best2(21)  -  bbarge 
bestl (22),  best2(22)  -  tbarge 
bestl (23),  best2(23)  -  displ 
bestl (24),  best2(24)  -  portimet/24 
best  1(25),  best2(25 )  -  seatimet/24 
bestl (26),  best2(26)  -  ttript 
bestl (27),  best2(27)  -  aflowcap 
bestl (28)  twaitl 

best2(28)  -  cb 

bestl (29)  twait2 

best2(29)  -  lb 

bestl (30)  minbargel 

best2(30)  -  bt 

bestl (31)  minbarge2 

best2(31)  -  Id 


bestl (32) 


cb 
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blurbl ,2,3: 


best  1 (33) 
bestl (3*0 
best  1 (35 ) 


lb 

bt 

Id 


bt : 

charge: 
cl ,c2: 

cb : 

cf : 

cfixportl : 

cfixport2: 

cf ixstor : 

cfixterm : 

cfuel : 
clube : 

cmacht : 

countr : 

countf itb : 


Subroutine  Plots  input  parameters  representing 
title  of  graph,  vertical  axis,  and  horizontal 
axis. 

Breadth-Draft  Ratio.  The  ratio  of  the  tug-barge 
unit’s  breadth  and  draft,  (ft) 

Cost  of  Barge.  ($) 

Coefficient  arrays  used  only  as  input  parameters 
in  the  calling  of  subprogram  ’’power";  values  are 
used  in  subroutine  ’’prop"  of  subprogram  "power." 

Block  Coefficient.  The  block  coefficient  of  the 
tug-barge  unit. 

Coefficient  of  Frictional  Resistance  for  OGTB. 

Fixed  Port  Charges  for  Port  1.  Cost  of  fixed 
port  charges  of  tug/barge  at  Port  1  per  voyage. 
($/voyage) 

Fixed  Port  Charges  for  Port  2.  Cost  of  fixed 
port  charges  of  tug/barge  at  Port  2  per  voyage. 
($/voyage) 

Storage  Facility  Capital  Cost  Factor.  The  cost 
per  long  ton  for  shoreside  storage  facilities 
used  in  the  integral  mode.  ($/LT) 

Terminal  Facility  Capital  Cost  Factor.  The  cost 
per  long  ton  per  day  throughput  rate  for  terminal 
facilities.  ($/LT-day) 

Cost  of  Fuel.  Diesel  fuel  cost  per  ton.  ($/LT) 

Cost  of  Lube  Oil.  Lube  oil  cost  per  gallon. 
($/Gal) 

Tug  Machinery  Cost.  Cost  of  propulsion  machinery 
onboard  the  tug;  function  of  IHP.  ($1000/tug) 

Index  for  the  loadline  coefficient  array( llcoef ) 
used  in  the  calculation  of  the  variable  "minfbd". 

Barge  Outfit  Cost.  Cost  of  a  ton  of  outfit  mate¬ 
rial  onboard  the  barge.  ($1000/LT) 
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coutf itt : 

csteelb : 

csteel t : 

csubs : 

ctug : 

ctugbarges : 
cvarport 1 : 

cvarport2: 

cvarstor : 

cvarterm : 

cwage: 

d : 

dbarge: 
delayl : 

delay2: 


Tug  Outfit  Cost.  Cost  of  a  ton  of  outfit  onboard 
the  tug.  ($1 OOQ/LT ) 


Barge  Steel 
onboard  the 

Cost.  Cost  of  a  ton 
barge.  ($1000/LT) 

of 

hull 

steel 

Tug  Steel  Cost.  Cost  of  a  ton 

of 

hull 

steel 

onboard  the  tug.  ($1000/LT) 

Cost  of  Subsistence.  Annual  subsistence  cost  per 
crew  member.  ($/man) 

Cost  of  Tug.  Initial  capital  cost  of  a  tug  as  a 
function  of  steel  and  outfit  weight  and  machinery 
cost.  ($/tug) 

Cost  of  Tug  and  Barges.  Total  capital  cost  of 
all  tugs  and  barges  in  the  system.  ($) 

Variable  Port  Charges  for  Port  1.  Cost  per  cargo 
unit  capacity  for  port  charges  at  Port  1  per 

voyage.  ($/cargo  unit  and  voyage) 

Variable  Port  Charges  for  Port  2.  Cost  per  cargo 
unit  capacity  for  port  charges  at  Port  2  per 

voyage.  ($/cargo  unit  and  voyage) 

Storage  Facility  Operating  Cost  Factor.  The  cost 
per  long  ton  stored  in  the  integral  mode.  ($/LT) 

Terminal  Facility  Operating  Cost  Factor.  The 
cost  per  long  ton  moved  through  a  terminal 
facility.  ($/LT) 

Cost  of  Wages.  Annual  benefit  and  wage  cost  per 
crew  member.  ($/man) 

Distance  Index.  Index  used  to  represent  the 
variable  distance  in  optimum  system  arrays-rfrbl , 
rfrb2,  dwtbl , . . .mintugs. 

Depth  of  Barge,  (ft) 

Port  1  Delay  Time.  Length  of  delay  at  Port  1 
prior  to  and  after  cargo  operations,  including 
docking/undocking  and  awaiting  berth  time  for  the 
barge,  (hrs) 

Port  2  Delay  Time.  Same  as  "delayl”  except  for 
Port  2. 
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delbt : 

delcb: 

deldist : 

deldwt : 

dellb : 

delrate : 

delspeed : 

dhp : 

displ : 
disrate : 

distance: 

dq : 


Breadth-Depth  Ratio  Increment.  The  incremental 
B/T  to  be  used  while  varying  the  tug-barge 
breadth-depth  ratio  from  its  minimum  to  its  maxi¬ 
mum  value. 

Block  Coefficient  Increment.  The  incremental  Cb 
to  be  used  while  varying  the  tug-barge  block  co¬ 
efficient  from  its  minimum  to  its  maximum  value. 

Distance  Increment.  The  incremental  distance  to 
be  used  while  varying  the  port  separation  dis¬ 
tance  from  its  minimum  to  its  maximum  value, 
(nautical  miles) 

Deadweight  Increment.  The  incremental  deadweight 
to  be  used  while  varying  the  barge  deadweight 
from  its  minimum  to  its  maximum  value,  (cargo 
units) 

Length-Breadth  Ratio  Increment.  The  incremental 
lb  to  be  used  while  varying  the  tug-barge 
length-breadth  ratio  from  its  minimum  to  its  max¬ 
imum  value. 

Loading/Discharge  Rate  Increment.  The 
incremental  L/D  rate  to  be  used  while  varying  the 
L/D  from  its  minimum  to  its  maximum  value, 
(cargo  units/day) 

Tug  Speed  Increment.  The  incremental  tug  speed 
to  be  used  while  varying  the  tug  speed  from  its 
minimum  to  its  maximum  value,  (kts) 

Delivered  Horsepower.  Horsepower  required  to  be 
delivered  to  the  propeller  to  drive  the  tug-barge 
unit  ” speed"  knots. 

Barge  Displacement.  (LT) 

Discount  Rate.  Discount  rate  to  be  used  in  pres¬ 
ent  value  calculations. 

Port  Separation  Distance.  Distance  between  Port 
1  and  Port  2  in  miles,  (nautical  miles) 

Coefficient  array  used  only  as  an  input  parameter 
in  the  calling  of  subprogram  "power”;  values  are 
used  in  subroutine  "prop”  of  subprogram  "power.” 
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drange : 
d  so  pt : 

dt : 

dwt : 
dwtbl : 

dwtb2 : 

econlife : 
ehp : 

eta : 

fbd : 

fuelcons : 
fuelmargin : 
graph  type: 


Distance  Range.  Number  of  port  separation 
distances  to  be  investigated. 

Drop  and  Swap  Option.  This  option  enables  the 
program  to  investigate  two  types  of  drop-and-swap 
configurations.  When  dsopt=0,  both  ports  have  a 
minimum  of  one  barge  stationed  for  L/D.  When 
dsopt=1,  the  port  with  lowest  L/D  time  has  no 
barges  stationed  for  L/D  and  tug  remains  with 
barge  while  in  port. 

Coefficient  array  used  only  as  an  input  parameter 
in  the  calling  of  subprogram  "power";  values  are 
used  in  subroutine  "prop"  of  subprogram  "power." 

Barge  Deadweight,  (cargo  capacity  units) 

Array  variable  used  to  store  the  barge  deadweight 
size  of  the  optimum  drop-and-swap  system  for  giv¬ 
en  port  separation  distance  and  L/D  rates, 
(cargo  capacity  units) 

Same  as  dwtbl  except  for  integral  system,  (cargo 
capacity  units) 

Economic  Life.  Economic  life  of  the  OTGB  system 
used  in  present  value  calculations,  (yrs) 

Effective  Horsepower.  Horsepower  required  to  be 
delivered  by  the  propeller  to  drive  the  tug-barge 
unit  "speed"  knots. 

Relative  Rotative  Efficiency  Array.  Array  of 
relative  rotative  efficiency  (xlQOO)  values  used 
as  input  parameters  in  the  calling  of  subprogram 
"power";  values  are  used  in  subroutine 
"propfactors"  of  subprogram  "power." 

Barge  Freeboard,  (in) 

Fuel  Consumption.  Amount  of  fuel  consumed  by  the 
tug  per  voyage.  (LT/voyage) 

Fuel  Margin.  Percentage  of  fuel  above  "fuelcons" 
required  to  be  onboard  tug  after  bunkering. 

Subroutine  Plots  inputs  parameter  used  to  desig¬ 
nate  type  of  graphical  output.  If  equals  0, 
loading  rate. is  abscissa;  if  equals  1,  distance 
is  abscissa. 
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hr : 

hullwt75: 

hullwt8Q: 

•  f  - 

hullwt85 : 

i : 

ibit : 

ihp : 
index : 

inflafctr : 

inrate : 

iopt : 

iopt3: 


Relative  Rotative  Efficiency.  Relative  rotative 
efficiency  (nR)  of  tug-barge  hull  form. 

Hull  steel  weight  for  tug-barge  unit  with  CbrQ.75 
as  a  function  of  lb,  bt,  and  dwt.  (LT) 

Hull  steel  weight  for  tug-barge  unit  with  Cb=0.80 
as  a  function  of  lb,  bt,  and  dwt.  (LT) 

Hull  steel  weight  for  tug-barge  unit  with  Cb=0.85 
as  a  function  of  lb,  bt,  and  dwt.  (LT) 

Index  Parameter  used  in  do  loop  to  solve  for  Co¬ 
efficient  of  Frictional  Resistance  for  OGTB. 

Subroutine  "yesno"  output  value  designating  re¬ 
sponse  of  user  to  a  question.  If  yes  was 
signified,  ibit  equals  1;  if  no  was  signified, 
ibit  equals  0. 

Installed  Horsepower.  Horsepower  of  engines 
installed  onboard  tug.  (horsepower) 

Subprogram  "power”  Error  Index.  An  index  used  to 
indicate  if  some  calculation  error  occurred  dur¬ 
ing  the  call  of  subprogram  "Power". 

Inflation  Factor.  A  factor  used  to  correct  the 
total  annual  cost  ("acost")  for  inflation  after 
January  1979. 

Loading/Discharging  Rate  Input  Option  Parameter. 
If  equals  0,  then  the  rate  of  loading  and  dis¬ 
charge  at  each  port  will  be  the  same  and  equal  at 
each  port  and  will  be  systematically  varied  from 
the  minimum  to  the  maximum  specified  value.  If 
equals  1,  the  loading  and  discharge  rate  at  each 
port  will  be  required  input. 

Drop  and  Swap/Integral  Mode  Option.  This  option 
is  used  in  the  main  computations.  When  it  equals 
0,  then  drop-and-swap  calculations  are  executed. 
When  it  equals  1,  then  integral  mode  calculations 
are  executed. 

Detailed  Output  Option.  This  option  is  used  to 
specify  how  much  detail  is  desired  in  the  output. 
When  it  equals  0,  only  the  optimum  drop-and-swap 
and  integral  system  values  are  printed  out  for  a 
given  distance  and  loading/discharging  rate. 
When  it  equals  1,  drop-and-swap  and  integral  mode 
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values  are  printed  for  every  value  of  dwt,  speed, 
distance,  rate,  cb,  bt,  and  lb. 

iout:  Output  of  Input  Data  Option.  This  option  is  used 

to  insure  that  the  input  parameter  values  are 
printed  only  once.  When  0,  input  is  printed; 
when  1,  input  is  not  printed. 

iout2:  Output  of  Nonconvergence  Message  Option.  This 

option  is  used  to  insure  that  the  message  of 
nonconvergence  of  the  waiting  time  routine  is 
printed  only  once  for  a  given  L/D  rate  and  port 
separation  distance.  If  equals  0,  message  will 
be  printed.  When  equals  1,  message  will  not  be 
printed . 

iout3:  Form  Coefficient  Under /Over flow  Indicator.  This 

variable  is  set  to  1  if  either  lb,  bt,  or  cb 
values  are  out  of  interpolable  ranges.  Otherwise 
its  value  is  zero.  It  is  used  in  the  program  to 
allow  the  user  to  revise  his  form  coefficient 
inputs  without  having  to  input  any  other  data. 

j:  Index  parameter  used  in  do  loop  to  solve  for 

waiting  times,  voyage  times,  and  minimum  tugs 
required  in  drop-and-swap  mode.  Also  used  in 
Yesno  Subroutine. 

lb:  Lenth-Bread th  Ratio.  The  ratio  of  tug-barge 

unit’s  length  and  breadth.  (ft) 

lbarge:  Length  of  Barge.  (ft) 

lbarge75:  Length  of  barge  with  Cb=0.75  as  a  function  of  lb, 

bt,  and  dwt.  (ft) 

lbarge80:  Length  of  barge  with  Cb=0.80  as  a  function  of  lb, 

bt,  and  dwt.  (ft) 

lbarge85:  Length  of  barge  with  Cb=0.85  as  a  function  of  lb, 

bt,  and  dwt.  (ft) 

Id:  Length-Depth  Ratio.  The  ratio  of  barge  length 

and  barge  draft.  (ft) 

ldfact:  Length-Depth  Ratio  Loadline  Factor.  This  factor 

is  used  to  correct  the  tabulated  minimum  free¬ 
board  value  (minfbd)  for  length-depth  ratios  less 
than  15. 

litb:  Length  of  Integrated  Tug/Barge  Combination.  (ft) 
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llcoef : 

11  fact : 

1  tug : 
lubecons : 

maxb : 

maxbt : 

raaxcb: 

maxdist : 

maxdwt : 

maxi : 

maxlb : 

maxrate : 

max  speed : 
maxt 1 : 

maxt2: 

mflowave 1 : 


Minimum  Loadline  Coefficient  Array.  From  this 
array  the  value  of  minfbd  is  found  via  linear  in¬ 
terpolation  with  respect  to  length. 

Minimum  Loadline  Coefficient  File.  The  file  in 
which  llcoef  is  stored. 

Length  of  Tug.  (ft) 

Lube  Oil  Consumption.  Amount  of  lube  oil 

consumed  by  the  tug  per  voyage.  ( gals/voyage) 

Maximum  Beam.  Maximum  barge  beam  allowed  during 
voyage,  (ft) 

Maximum  Breadth-Draft  Ratio.  Maximum  tug-barge 
bt  value  to  be  investigated. 

Maximum  Block  Coefficient.  Maximum  barge  block 
coefficient  to  be  investigated. 

Maximum  Distance.  Maximum  port  separation  dis¬ 
tance  to  be  investigated,  (nautical  miles) 

Maximum  Deadweight.  Maximum  barge  cargo  dead¬ 
weight  capacity  to  be  investigated.  (cargo 
units) 

Maximum  Length.  Maximum  OGTB  length  allowed  dur¬ 
ing  voyage,  (ft) 

Maximum  Length-Breadth  ratio.  Maximum  tug-barge 
L/B  value  to  be  investigated. 

Maximum  Loading/Discharge  Rate.  Maximum  port  L/D 
rate  to  be  investigated,  (cargo  units/day) 


Maximum 

Speed 

.  Maximum  tug  speed 

to 

be 

investigated . 

( kts) 

Maximum 

Draft 

Port  1 . 

Maximum  allowed 

draft 

in 

Port  1. 

(ft) 

Maximum 

Draft 

Port  2. 

Maximum  allowed 

draft 

in 

Port  2.  (ft) 

Monthly  Average  Cargo  Flow  from  Port  1.  Average 
monthly  flow  of  cargo  to  be  loaded  at  Port  1  and 
discharged  at  Port  2.  (cargo  units) 
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mflowave2: 


minbargel : 


minbarge2: 
minbargesl : 
minbarges2: 
minbrgl , 2: 

rainbt : 

mincb: 

mindist : 

mindwt : 

mindwttemp: 

minfbd : 

minitb : 

minlb : 


Monthly  Average  Cargo  Flow  from  Port  2.  Average 
monthly  flow  of  cargo  to  be  loaded  at  Port  2  and 
discharged  at  Port  1.  (cargo  units) 

Minimum  Barges/Terminal  Facilities  at  Port  1. 
Minimum  number  of  terminal  facilities  (and  barges 
for  drop-and-swap  mode  only)  required  at  Port  1 
in  order  to  be  compatible  with  Port  1 
loading/discharging  rates  and  flow  requirements, 
(barges/ facilities) 

Same  as  minbargel  except  for  Port  2. 
( barges/ facil it ies) 

Storage  array  for  "minbargel "  for  the  port  pair 
trades  under  consideration,  (barges/facilities) 

Same  as  minbargesl  except  for  Port  2. 
( barges/ facil it ies) 

Storage  variables  for  values  of  minbargel  and 
minbarge2,  respectively,  used  for  drop-and-swap 
calculations  when  dsopt  is  0. 

Minimum  Breadth-Draft  Ratio.  Minimum  tug-barge 
B/T  value  to  be  investigated. 

Minimum  Block  Coefficient.  Minimum  tug-barge  Cb 
value  to  be  investigated. 

Minimum  Distance.  Minimum  port  separation  dis¬ 
tance  to  be  investigated,  (nautical  miles) 

Minimum  Deadweight.  Minimum  barge  cargo  dead¬ 
weight  capacity  to  be  investigated.  (cargo 
units) 

Temporary  storage  variable  for  the  variable 
"mindwt"  used  for  reducing  the  number  of  "dwt" 
iterations  required. 

Minimum  Freeboard.  The  uncorrected  (or  block  co¬ 
efficient  corrected)  minimum  freeboard  value  as 
obtained  after  linear  interpolation  of  the  array 
llcoef . 

Minimum  OGTB .  The  minimum  number  of  OGTB's 
required  in  the  integral  mode  to  provide  suffi¬ 
cient  flow  capacity,  (tug-barges) 

Minimum  Length-Breadth  ratio.  Minimum  tug-barge 
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minrate : 

minspeed : 
mintug : 

mintugsl : 

mintugs2: 

multifctr  1-3: 

nextchar : 

nrcrew: 

nr trips : 
ol  ,o2: 

out put_type : 

parameters : 
percent : 


L/B  value  to  be  investigated. 

Minimum  Loading/Discharge  Rate.  Minimum  port  L/D 
rate  to  be  investigated,  (cargo  units/day) 

Minuimum  Speed.  Minimum  tug  operating  speed  to 
be  investigated,  (kts) 

Minimum  Tugs.  Minimum  number  of  tugs  required  in 
the  drop-and-swap  mode  to  provide  sufficient  flow 
capacity,  (tugs) 

Storage  array  for  the  minimum  number  of  tugs 
required  by  the  optimal  drop-and-swap  system  for 
a  given  L/D  rate  and  port  separation  distance, 
(tugs) 

Storage  array  for  the  minimum  number  of  OGTB's 
required  by  the  optimal  integral  system  for  a 
given  port  L/D  rate  and  port  separation  distance. 
(OGTBs) 

Multiple  Ship  Cost  Reduction  Factors.  Factors 
used  to  correct  single  unit  costs  for  multi-unit 
orders  for  tugs  and  barges. 

Yesno  Subroutine  input  variables  used  to  test  if 
yes  or  no  response  was  given  by  user. 

Number  of  Crew.  Number  of  crew  members  required 
for  a  tug.  (men) 

Number  of  Trips.  Number  of  voyages  tug  or  OGTB 
can  make  during  a  year.  ( voyages/ year ) 

Subroutine  Plots  Input  Parameters  representing 
the  arrays  of  obscissa  and  ordinate  coordinates 
of  the  points  to  be  graphed. 

Output  Type  Option.  Allows  user  to  designate 
whether  printed  output  is  desired.  If  equals  1, 
printed  output  is  provided.  If  equals  0,  printed 
output  is  not  provided. 

Name  of  file  containing  the  semifixed  parametric 
values  used  by  the  program. 

Array  used  to  store  the  percentage  that  port  time 
takes  of  the  total  voyage  time  for  the  port  pair 
trades  under  consideration. 
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plot_: 

Subroutine  used  to  graph  output  data. 

plot_scale : 

Subroutine  used  to  set  abscissa  and 
scale  minimum  and  maximum  values. 

ordinate 

plot_setup : 

Subroutine  used  to  set  up  the  proper  environment 
for  the  plot_  subroutine. 

portimet : 

Tug  Porttime.  Time  tug  or  OGTB  remains 
during  a  voyage.  (hrs) 

in  port 

power : 

Subprogram  used  to  calculate  the  "dhp" 
as  a  function  of  the  tug-barge  system's 
dimensions  and  speed. 

and  "ehp" 
pr incipal 

powerdat a : 

File  used  to  store  data  required  by 
"power"  . 

subprogram 

propef : 

Open  Water  Propeller  Efficiency  (nQ).  The  ratio 
of  the  power  delivered  by  the  propeller  and  the 

power  delivered  to  the  propeller  in  open  water. 

pvf:  Present  Value  Factor.  Factor  used  in  present 

value  calculations;  a  function  of  the  discount 
rate  and  economic  life  for  the  system. 

r:  Iteration  index  used  for  port  loading/discharging 

rates . 

rate:  Loading/Discharging  Rates.  Daily  amount  of  cargo 

which  can  be  either  loaded  into  or  discharged  out 
of  a  barge  located  at  either  port.  Refers  to 
each  barge  of  the  minimum  required  at  that  port, 
(cargo  units/day) 

rc :  Residual  Resistance  Array.  Array  of  residual  re¬ 

sistance  coefficients  used  as  input  parameter  for 
subprogram  "power”;  values  are  used  in  subroutine 
"resist"  of  subprogram  "power." 

resist:  Resistance.  Total  still  water  hydrodynamic  re¬ 

sistance  of  the  OGTB  combination. 

rfr:  Required  Freight  Rate.  The  amount  of  freight  per 

cargo  unit  carried  required  to  cover  system 

operating  and  capital  costs  (present  value 
annualized).  ($/cargo  unit) 

rfrbl :  Storage  array  for  the  minimum  required  freight 

rate  found  for  a  drop-and-swap  system  with 
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specified  port  L/D  rate  and  port  separation 
distance.  ($/cargo  unit) 


rfrb2: 

rloadl : 

rload2: 

rlubeoil : 
rportfuel : 

rrange: 

rseafuel : 

runloadl : 

runload2: 

seat imet : 

servmargin : 
sfc : 

shp : 

shrfac  t : 


Same  as  for  rfrbl  except  for  integral  mode. 
($/cargo  unit) 

Loading  Rate  at  Port  1.  Daily  cargo  loading  rate 
at  Port  1.  (cargo  units/day) 

Loading  Rate  at  Port  2.  Daily  cargo  loading  rate 
at  Port  2.  ( cargo/ units/day) 

Lube  Oil  Consumption  Rate.  Amount  of  lube  oil 
consumed  per  hour,  (gal/hr) 

Inport  Fuel  Consumption  Rate.  Amount  of  Diesel 


fuel  consumed 
(ton/hr) 

per 

hour 

while 

tug  is  in  port. 

Rate  Range, 
investigated . 

Number 

of 

L/D 

rates  to  be 

At  Sea  Fuel  Consumption  Rate.  Amount  of  diesel 
fuel  to  be  consumed  per  hour  by  the  tug  while 
steaming,  (tons/hr) 


Unloading  Rate  at  Port  1.  Daily  cargo  discharge 
rate  per  terminal  at  Port  1.  (cargo  units/day) 

Unloading  Rate  at  Port  2.  Daily  cargo  discharge 
rate  per  terminal  at  Port  2.  (cargo  units/day) 

Tug  Seatime.  Time  tug  or  OGTB  is  at  sea; 
including  delay  time  and  linkage  time 
( drop-and-swap  mode  only),  (hours  per  voyage) 

Service  Margin.  Engine  horsepower  service  margin 
used  to  calculate  IHP. 

Specific  Fuel  Consumption.  Amount  of  diesel  fuel 
consumed  per  horsepower  per  hour  by  the  tug  at 
sea.  (lbs/hp-hr) 

Shaft  Horsepower.  Shaft  horsepower  required  by 
tug  to  push  OGTB  through  the  water  at  the 
specified  speed,  (horsepower) 

Sheer  Correction  Factor.  Correction  to  the  free¬ 
board  calculation  due  to  lack  of  sheer  expected 
in  the  barge  form. 
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speed : 
speedbl : 

speedb2 : 
sysin : 
sysprint : 
t : 

tbarge : 
tdwt : 

temp: 

th: 

tlink: 
totcapeost : 

totopcost : 

tportl : 

tport2: 

ttript : 


Tug  Speed.  Tug  designed  service  speed,  (kts) 

Storage  array  for  the  speed  of  the  drop-and-swap 
system  for  a  given  port  L/D  rate  and  port  separa¬ 
tion  distance,  (kts) 

Same  as  speedbl  except  for  integral  mode,  (kts) 
System  input  file 
System  output  file 

Thrust  Deduction  Fraction  Array.  Array  of  one 
minus  the  thrust  deduction  fraction  (xlOQO) 
values  used  as  input  parameter  in  the  calling  of 
subprogram  "power";  values  are  used  in  subroutine 
"propfactors"  of  subprogram  "power." 

Barge  Draft,  (ft) 

Total  Deadweight  of  OGTB.  Includes  cargo  dead¬ 
weight  capacity  plus  fuel  and  miscellaneous 
weights,  (cargo  units) 

Temporary  storage  location  used  for  various  in¬ 
termediate  calculations. 

Thrust  Deduction  Fraction.  Thrust  deduction 
fraction  (t)  of  the  tug-barge  form. 

Linking  Time.  Time  required  to  link  a  tug  with  a 
barge  for  drop-and-swap  operations,  (hrs) 

Total  Capital  Cost.  Total  system  capital  costs 
for  tugs,  barges,  terminal  facilities,  (and  stor¬ 
age  facilities  for  integral  mode  only).  ($) 

Total  Operating  Costs.  Total  OGTB  system 
operating  costs.  For  drop-and-swap  mode  it 
includes  M&R  and  insurance  costs  for  those  barges 
in  excess  of  the  number  of  tugs.  ($) 

L/D  Time  Spent  in  Port  1.  Amount  of  time 
required  for  L/D  operations  at  Port  1  per  barge, 
(hrs) 

L/D  Time  Spent  in  Port  2.  Amount  of  time 
required  for  L/D  operations  at  Port  2  per  barge 
(hrs) 

Tug  Total  Voyage  Time.  Amount  of  time  required 
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by  tug  for  a  voyage.  (days) 


tugopdays:  Tug  Operating  Days.  Number  of  days  during  the 

year  in  which  a  tug  is  expected  to  be  available 
for  operations.  (days) 

tunlink:  Unlinking  Time.  Time  required  to  disconnect 

barge  from  tug  for  drop-and-swap  operations. 
( hrs) 

twaitl:  Port  1  Waiting  Time.  Time  tug  is  required  to 

wait  for  barge  at  Port  1  during  drop-and-swap 
operations,  (hrs) 


twait2  Port  2  Waiting  Time.  Time  tug  is  required  to 

wait  for  barge  at  Port  2  during  drop-and-swap 
operations,  (hrs) 


vcargo : 

Cargo 

($/LT) 

Value 

.  Value 

of  cargo 

per 

long 

ton . 

volwt : 

Cargo 

Cubic 

Capac ity . 

The  amount 

of 

cargo 

that 

could 

fit 

within  the 

cubic  volume  of 

the 

barge . 

(LT) 

w:  Wake  Fraction  Array.  Array  of  one  minus  the  wake 

fraction  (xlQOO)  values  used  as  an  input  parame¬ 
ter  in  the  calling  of  subprogram  "power";  values 
are  used  in  subroutine  "propfactors"  of 
subprogram  "power." 

wa :  Wake  Fraction.  Wake  fraction  (W-p)  of  the 

tug-barge  form. 

wmacht:  Tug  Machinery  Weight.  (LT) 

wmisc:  Tug  Miscellaneous  Weight.  (LT) 

woutfitb:  Barge  Outfit  Weight.  (LT) 

woutfitt:  Tug  Outfit  Weight.  (LT) 

wsteelb:  Barge  Hull  Steel  Weight.  (LT) 

wsteelt:  Tug  Steel  Weight.  (LT) 

x:  Subroutine  Plots  variable  used  to  represent 

abscissa  array  values. 

xcb:  Quadratic  Interpolation  Coefficient.  Parameter 

used  in  the  quadratic  interpolation  with  respect 
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to  block  coefficient  for  the  value  of  lbarge  and 
ws teelb . 


x  1  cb : 

Same  as  for  xcb. 

x2cb : 

Same  as  for  xcb. 

x3cb  : 

Same  as  for  xcb. 

xmax , xmin : 

Subroutine  Plots  variables  used  to 
imum  and  maximum  range  of  abscissa 

represent  min- 
ax  is . 

yi,y2: 

Subroutine  Plots  variables  used 
ordinate  array  values  for  drop-and- 
gral  modes  respectively. 

to  represent 
■swap  and  inte- 

ymax  ,  ymin : 

Subroutine  Plots  variables  used  to 
imum  and  maximum  range  of  ordinate 

represent  min- 
ax  is . 
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APPENDIX  B 


DOCUMENTATION  FOR  THE  BARGE  DESIGN  MODEL 
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B.l  FLOWCHART  OF  THE  BARGE  DESIGN  MODEL 


-289- 


-290- 


-291- 


stand2 : 
onward2 : 


-292- 


-293- 


-294- 


j  effplate5=  1 

5  . *dkplt,  1 

min1 

lonspac,  V 

^xvrspac/3  j 

I 


call 

(effplate5 , 
dkplt, 
secomodS 


no 


xo 


scanlim=l? 


output 
secmod6 
s.  modval6 
flanth6 

yes  flanwi6 
y  webth6 

webdep6 


ihc=l?. 


go  to  hulcalc 


bhds : 


bhdplt=  . _ _ 

12*lonspac*/d+4-- 


+  0.1 


m 


modva 17= smbe  s  t 


-300- 


sigma_io= 

sigma_io+ 

dimen (i/1) * (dimen (i,2) ) 3 
1728 


inertia=sigma_ay2 
-centroid*sigma_ay 
+sigma  io 


go  to  hulcalcr 


-304- 


xvrs2= 
area4* (d- 


■)  *  6 . 8 


dbdep 


21. 


-307 


308 


1  bargdes6:  proc(  1  ,b  ,d  ,t  ,cb  ,minlonspac  .max  lonspac  .incrlonspac  .minxvrspac  .maxxvrspac  ,  incrxvrspac  ,mlnn  ,raaxn, 
coef  f  .cycle  ,opt , min wt  .bestlonspac  ,bestxvrspac  .bestn) ; 

( 1  ,b  ,d  ,t  ,cb  .lonspac  ,  xvrspao)  dec  float; 

(minlonspac  ,  maxlonspac  .Incrlonspac  .mlnxvrspac  , 
maxxvrspac .incrxvrspac)  dec  float; 

(  botpl  t  ,h  1  .secmodl  .areal  .deepl ,  f  lanwi  1 ,  f  lanthl  .webthl , 
webdepl .modvall ,12,secmod2,area2,deep2,raodval2)  dec  float; 

(  sid  pi  t  ,h2,  seeraod  3  ,area3,deep3,  f  lanth^ ,  f  lanwi  3  ,webth3, 
fl  ar.wi2,f  lanth2,  webth2,  webdep2,  f  lanth4 ,  flanwi4,webth4, 
webdep4,f lanth6  ,  f  lanwi  6  ,webth6 ,  webdep6,  flan  th8  ,  f  lanwiS  , 
webth8 ,webdep8 , 

webdep3 ,modval3 ,14 , area4 ,secmod4 ,raodval4 )  dec  float; 

( dkpl  t  ,h3 ,  secmod5  , area5  ,deep5 ,  f  1  anth5 ,  f  lanwi 8  , webth5, 
webdep5  ,modval5  .secmodo  ,area6  ,deep6,modval6 )  dec  float; 

( bhdpl t ,secmod7 , area7 ,deep7, f 1 anth7 , flan wi7 , web th7 , 
webdep7 ,modval7 ,secraod8 , area8 ,modval8 )  dec  float; 

( ltemp  .smreq  ,  f ac t  ,s igma_a  .sigma  ay  ,sigma_ay2,  sigma_io , 
centroid  , inertia .modbot .moddk)  Bee  float; 

( long  area .long wt .xvrsl ,xvrs2, xvrs3,xvrs4,xvrs5,xvrs6,xvrs7 .effplate 1 ,effplate2,ef fplate3 , 
ef fplate4 , ef fplate5 , ef f plateft , ef fplate7 ,ef fplate8 , ftwt .weight .astan .wtstan)  dec  float; 

<  dbpl t  .dbdep.siddbg  ird  th  .cendbgird  th  ,h5,ef  f plated  ,secmod9,mod»al9 . 
area9  ,  f  lan th9 .  flanwi9  , webthd , webdep9  )  dec  float; 

( mir.wt  .bestlonspac  .bestxvrspac  .bestmodbot  .bestmoddk)  dec  float; 

(coeff(66),  dimen( 16, 3))' dec  float; 

( abest  .area, f best .smbest .tfbest .twbest  .wbest)  dec  float; 

(  scanl  ira  .countr  ,i  ,n  ,pi  ,ihc  , s tan s.g type  .cycle  ,opt  ,m inn  .raaxn.bestopt  .bestn  .ntrbkd)  bin  fixed; 
27  del  ( 1:1 , k2, k3,moddktemp,modbottemp)  dec  float; 

23  del  sysprint  file  stream  output; 

29  pi  =  ? . 141692654; 

70  minwt=99999 . ; 

’1  ir.terpol:  if  1  =  750.  then  factscoef  f  (66 ) ; 

32  else  do; 

7  3  cour.tr  =  ceil(  ( 1-99 . 9999  >/10. ) ; 

fact=coeff ( countr )  +  ( 1-100-1 0‘(  countr- 1 )  )* 

75  (coeff(countr+1  )-coeff(countr)  )/10; 

56  end; 

77  onward :  smreq= fact* b* ( cbr5e-1  ); 

’3  if  cycle=0  !  cycle=1  then  put  skip  edit(  "lengths"  ,1 beams",  b,"  depth=",d,  "  draft*", 

59  t,"  required  modulus*"  .srareq)  ( col(  2 )  ,a  ,f  (3 )  ,a  ,  f  (6 , 2) , 

to  a,f(6,2),a,f(5,2),a,f(6)); 

a  1  return: 

■‘2  if  opt*  =  2  then  do; 

if  b<=  35  then  do; 

12  =  (b-5.)/2. ; 

“5  stanssO; 

tO  end; 

W  if  b>35  4  b<=67  then  do; 

“3  12  =  <  b-7 . )/4 . ; 

"3  stans=2; 

50  end; 

51  if  b>67  4  b<=99  then  do; 

52  12  =  ( b-9 . )/6 . ; 

57  stans=4; 

5#  end; 

55  if  b>99.  then  do; 

56  12=(b-1 1 . )/8 . ; 

57  stans=6; 

58  end; 

59  go  to  loops; 
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a 

del 

a 

del 

5 

6 

del 

7 

3 

del 

9 

10 

11 

12 

13 

del 

1U 

15 

del 

1 6 

17 

del 

18 

19 

del 

80 

8 1 

del 

88 

27 

del 

8“ 

del 

85 

del 

26 

del 

w 

« 
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60 

61 

62 

6« 

65 

66 
67 
65 
6; 

70 

71 

72 
7s 
7J 

75 

76 

77 
75 
79 
3  9 
cl 


36 

57 


9  9 
91 

V 

5  4 

5C 

76 

97 

9c 


I  C;  9 
1-91 
102 
’ ;  i 

i :  j 

<:'C 

106 

107 

103 

109 

110 

111 

112 

I I  7 
1 1  u 

115 

116 
117 
1  1  3 
119 


end ; 

if  opt  =  1  &  stans>=2  then  do; 
stans=stans-2; 

12 s( b-(5 . 4 stand) )/( stans+2 . ) ; 
go  to  loops; 

end; 

if  opt  =  2  then  do; 
stans=0; 

12=( b-9 . )/3 . ; 

er.d; 

loops:  do  lonspac  =  minlonspac  to  maxlonspac  by  incrlonspac; 
do  xvrspac  =  mlnxvrspac  to  maxxvrspac  by  incrxvrspac; 
r.trbkd  =  floor(0 . 15*l/xvrspac) ; 
moddktemp  =  0 . ; 
modbottemp  =  0,; 

do  n  a  minr.  to  maxn; 
ihc=9 ; 

If  cycleeO  !  cycle  -1  then  put  skip(2)  edlt(  "longitudinal  frame  spacing 
"  transverse  web  spacing  =  " , xvrspac) (col(2 ) ,a ,f(5 ,2) ,a ,f (5 ,2) ) ; 
bottom:  if  l<uoo  then 

bo t pit =5 . 55e-4*l+8.4e-2*lonspac+6.7e-2; 
if  1>=400  then 

botpl t^le- 3 *1*1 .2e-1 * lonspac -2e- 1 ; 
if  botpl t  >=  1 . 4375e0  then 
do; 

put  data(  botplt) ; 
return ; 
end ; 

standi:  botpl t=ce ii( botplt/ .06251*0 . 0625; 
onwardl:  if  1<=200  then 
h  1  =d+4 ; 

if  1>20041<400  then 
h1=d+i/50; 
if  1>=400  then 
h1=d+8; 

if  opt"=3  then  secmodl =5 . 494e-3*lonspac*h1*xvrspac* xvrspac; 

else  secmodl =5. 33e-3*lonspac*h1*xvrspac*xvrspae; 
hgmodl :  effplate1=min(5 .* botplt , lonspac ,xvrspac/3. 1 ; 

call  smac tKeffplatel , botpl t , secmodl ) ; 
area1=abest; 
deep1=wbest+tfbest ; 
fl anth1=tfbest; 
f  lar.wi  1  =  fbest ; 
w':bth1  =  twbest ; 
webd  ep 1 =wbest ; 
mod v  al 1 rsmbest ; 
if  scanlim=1  then  do; 
r>  =  maxn; 

put  data(  secmod  1 , modval  1 ,  f  lanthl.,  flanwi  1 ,  webthl , 
webdepl 1 ; 
go  to  endlps; 

er.d ; 

girderl:  if  opt  =  3  then  do; 

dbdep  =  ceil(0 . 383 *b  ♦  4 . 1 3*sqr t( t> 1 ; 
go  to  side; 
er.d ; 

else  dbdep  =  0.0; 

secmod2=4. 375 e- 3 *h1* xvrspac *12 *12; 
gtype=1 ; 

ef fplate2=mln( xvrspac ,12/3 ., 5 .‘botplt) ; 
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w .lonspac , 
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120 

121 

122 

12? 

12“ 

125 
12ft 
127 

126 
129 
no 
m 
n2 
n? 

1’«  side: 

1?5 

1?6 

n7 

ne 

1?9 

no 
m 
;  -2 

1-’  stand2: 
na  onward2 
1-5 
nft 
i-7 
1-8 
1-9 

150 

151 

152 
15? 

15“ 

155 

156 

157 

158 

159 
If 9 
161 
162 
1ft? 

1 6- 

16r  girder2: 
166 
167 
163 
169 

170 

171 

172 
17’ 

IT- 

175 

176 

177 

178 

179 


call  smact2(botplt ,ef fplate2,secaod2,deep1 ); 
area2*abest ; 
deep2*wbest*tfbest ; 
flar.th2=tfbest; 
flanwi2*fbest; 
uebth2=twbest j 
webdep2=wbest ; 
modval2*snibest; 
if  scanlioixl  then  do; 
n  =  main; 

put  data(secmod2,modval2,flanth2,flanwl2,webth2,webdep2); 
go  to  endlps; 

end; 

if  lhc  -  1  then  go  to  hulcalc; 
if  1<=900  then 

s id  pi t=8 . 2e-4  • 1+9  e-2» lonspac ; 
if  1>500  then 

sidplt=3.5e-4*l+1 . 2e-1 *lonspao+1 . 52e-1 ; 
if  s id  pit  >=  1.4375e0  then 
do; 

put  data(sidplt) ; 
return; 
end ; 

s  id  pi  t=  cei  1  ( sid  pi  t/  .0625 )  »0 . 0625 ; 
if  1<*200.  then 

h2=( d-dbdep/12. )/2.  ♦  4.; 
if  17200&12400  then 

h2=(d-dbdep/12.)/2.  ♦  1/50: 
if  1>=400  then 

h2*( d-dbdep/12. )/2.  ♦  8.; 
effplate?=min(lonspac ,xvrspae/3. ,5.* sid pit) ; 
secmod?=5 . 125e-3*lonspao*h2*xvr3pae*xvrspae; 
call  sinact1(effplate3,sidplt,secmod?); 
ar  ea’sabest ; 
deep?=wbest+tfbest ; 
flar.th?=tfbest; 
flanwi’sfbest; 
webth?=twbest; 
uebdep’subest ; 
modval?  =  smbest ; 
if  scanlimsl  then  do; 
n  =  main; 

put  data( seomod3,modval3,flanth3,flanwl3,webth3,webdep3) 
go  to  endlps; 

end; 

if  opt  *3  then  14  *  d  -3.  -  dbdep/12. ; 

else  14  *  d-(deep2/12.  +3.); 
effplate4=mtn( xvrspac ,14/3. ,5.*sidplt); 
seemod“*4 ,975e-3»h2*x»rspac*14*14; 
gtype=2; 

call  S!aact2(sldplt ,effplate4  ,secmod4 ,deep3); 
ar  eaUiabest ; 
flar,  th-=tfbest ; 
flar.wi4zfbest; 
webth4*tubest ; 
webdep“=wbest ; 
modvai4*smbest; 
if  scanlim=1  then  do; 
n  =  naxn; 

put  data(secmod4 ,nodval4 ,f Ianth4,flanul4,uebth4,uebdep4); 


go  to  endlps; 


to 


160 

161 

162 

lb’ 

15“ 

135 
1 66 
167 
163 
133 
137 
131 

136 
153 
13“ 

135 

136 

137 
133 
153 
200 
201 
2  -'2 
2  5“ 
20“ 

205 

206 
207 
205 
2  03 
2 1 0 
211 
2 1 2 
217 
21“ 

215 

2 1 6 
2i7 
213 
213 
220 
221 
222 
22’ 
22“ 

225 

226 
227 
223 
223 
270 
2  3 1 
2’2 
2” 
2’“ 
2-5 
2 ’6 
277 
2’6 
279 


end; 

deck:  if  lonspac<s2. 3333  then 

dkplt*  1 .2e-1 *lonspac+7e-2; 
else 

dkplts  7.72e-2*lonspac+1.7e-1; 
if  dkplt  >=  1.4375  then 
do; 

put  data(dkplt); 
return; 
end; 

stand’:  dkpltsceilt  dkplt/ .0625>*0 .0625; 
onward? :  if  1<=200  then 
h?s4; 

if  1>20041<400  then 
h’sl/50; 
if  1>sU00  then 
h’s8; 

secmod5=5 . 125 e- 3* lonspac* h 3* xvrspac* xvrspac; 
hgmod’ :  ef fplate5=min(5 .“dkplt .lonspac ,xvrspac/3> ) i 
call  smactUe f f pi ate5 .dkplt , secnod5 ) ; 
areac,  =  abest ; 
deep5*ubest+tfbest ; 
flanth5=tfbest; 
flanwi5-fbest; 
webth5=twbest ; 
webdep5=wbest ; 
modval5  =  smbest ; 
if  scant  ins  1  then  do; 
n  s  naxn; 

put  data( secmod5 ,modval5 , flanth5 , f lanwi5 ,webth5,webdep5 ) ; 
go  to  endlps; 

end ; 

girder’:  secraod6s5e-3*h3*xvrspac*12*12; 

effpiate6  =  nin( xvrspac ,12/3. 0,5. 0*dkplt) ; 

gtypes’; 

call  smact2( dkplt ,effplate6,secmod6,deep5); 
areaftsabest ; 
deep6subest+ tfbest ; 
fianth&stfbest ; 
flar.wibsfbest; 
webthbstwbest ; 
webdep6swbest ; 
mod  val  6  =  3®  best ; 
if  sc  an 1 ins  1  then  do; 
r.  s  naxn; 

put  d  ata( secmodb ,nodval6 , f 1  an thfi , flanwt6 , webth6 ,webdep6) ; 
go  to  endlps; 

end ; 

if  ihc  s  i  then  go  to  hulcalc; 
bhds:  bhdpl  ts  12.*  lonspac* sqr t(d+4-dbd ep/ 12.  )/460.*1  .e-1 ; 
star.d4 :  bhd  pits  ceil!  bhdpl  t/  .0625)  *0.0625; 

effplate7*min(  lonspac  ,xvrspac/3.  ,5.*bhdplt); 

secmod7=4 . 1e-3* lonspac* h2* xvrspac* xvrspac; 

call  smact if eff pi ate7 , bhdpl t ,secnod7 ); 

area7  =  abest; 

deep7=wbest+ tfbest ; 

flanth7*tfbest ; 

flanwl7*fbest; 

webth7stwbest; 
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2“9 

2“1 

2“2 

2“3 

26“ 

2“5 

266 

2-7 

2“3 

e*~) 

2:5 

251 

2:2 

263 

25“ 

2:: 

2r6 

257 

2:3 

2:9 

260 

261 

262 

26^ 

266 

26-: 

266 

267 

265 

269 

270 

271 

272 
27? 
276 
27: 

276 

277 
275 
279 
2:0 
251 
2  32 
2i’ 

256 

256 
2:6 

257 

255 
259 
250 
261 
292 
29’ 
25“ 
25: 

256 
297 
293 
299 


webdep7“wbest; 
nod » al7 ssmbest ; 
if  scanlimsl  then  do; 
n  a  naxn; 

put  data(  secmod7  ,nodval7 ,  f lanth7  ,flanui7  ,webth7  ,webdep7)j 
go  to  endlps; 

end; 

girder*:  if  opt  *’  then  14  =  d  -  dbdep/12.  -  deep6/12. ; 

else  14  *  (d  -  deep6/12.  -  deep2/12.); 
secraod3=3. 75 e-3*h2*xvrspac* 14*14; 
gtypes4; 

ef  f  plate8=min(  xvrspac  ,14/3. ,  5.*bhdplt) ; 

call  smact2(bhdplt,effplate8,secnod8>deep7); 

area3=abest ; 

flanthdstfbest; 

flar.wi3  =  fbest  ; 

uebthSstubest; 

webdep8=wbest ; 

nod val 3 ssmbest; 

If  scanlinst  then  do; 
n  3  naxn; 

put  data(secmod8,nodval8lflanth8,flanHl8,webth8luebdep8); 
go  to  endlps; 

end; 

dbbot:  If  opt  =3  then  do; 

dbplt  3  4. 1156-4*1  *  0. 108‘lonspac  ♦  0.02; 

dbplt  3  ceil(dbpl t/0. 0625) *0.0625; 

siddbgirdth  3  4.3e-4*l  +  0.24; 

siddbgirdth  3  ceil( siddbgird th/0 . 0625)*0 .0625; 

cer.dbgirdth  3  6.7e-4*l  +  0.22; 

cendbgirdth  s  ceil( cendbgird th/0.0625) *0.0625; 

If  1<200 .  then  h5  3  d  -  dbdep/12.  ♦  4.; 

if  1>3200.  Il  1<  =  400.  then  h5  =  d  -  dbdep/12.  +  1/50.; 

if  1>400.  then  h5  3  d  -  dbdep/12.  8.; 

secmod9  =  4 . 1e-3*h5*lonspac*xvrspac**2; 

secmod9  =  max(0. 85*secnod  1  ,secmod9 ); 

eff plated  s  mini lonspac ,xvr spac/3 . , 5.*dbplt) ; 

call  smactHeffplate^dbplt.secnod^); 

areal  3  abest; 

flar.  th9  s  tfbest; 

flanwl9  s  fbest; 

webth9  3  twbest; 

webdep9  3  ubest; 

tr.odval9  s  smbest; 

If  scanlln  3  1  then  do; 

put  d  ata(  secmodQ  ,modval9 , f lanth9 , f  1  anwi9 , webth9 , webdep9  ) ; 

n  3  naxn; 

go  to  endlps; 

end ; 

end; 

hulcalc:  ihc  =  1 ; 

dimer.  3  0.0; 

dimen(1,1)3l2«b; 

dimenf 1 , 2)=botplt ; 

diraent  1 , 3)  =  botplt/24; 

dimer. (  2, 1  )=webth1*b/ lonspac; 

dimen(2,2)=webdep1; 

dimer. (2, 3>3(botpl t+uebdepi/2 )/12; 

dimen(3, 1  )s  flanwi  1*b/lonspac; 

dinen(3, 2)3  flanthl; 
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300  dimenf  3 , 3)=  ( botplt*webdep1+flanth1/2)/12; 

301  diraenf4 , 1  )  =  2*sidpl  t ; 

302  direen(4,2)=12»d; 

303  dlmer.(«,3)  =  d/2; 

?0«  dimenf 5 , 1 )=webdep3*2*d/lonspao ; 

305  dimenf 5 ,2)=webth3; 

306  dimenf 5, 3)ad/2; 

307  dlmer.(6, 1)aflanth’*2*d/lonspac; 

303  dimen(6,2)aflanwi3; 

309  dimer.(6 , 3)-d/2; 

310  dimenf? , 1  )a12*b; 

’11  dimenf  7 , 2)=dkplt ; 

312  dimenf 7, 3)ad-(dkplt/24); 

313  dlmen(8,1)awebth5*b/lonspac; 

314  dimenf  8 , 2)  =  webdep5; 

315  dimenf  8, 3)ad- (dkpl t+webdep5/2)/12; 

316  dimenf  9 , 1  )  =  fl  anwi5  *b/ lonspac ; 

317  dimen(9,2)=flanth5; 

31s  dimen(9, 3)=d-(dkplt*Mebdep5+flanth5/2)/12; 

’19  dimenf  10, 1  )  =  bhdplt ; 

320  dimenf 10, 2)al2»d  -  dbdep; 

’21  dimenf 10, 3)=d/2.  ♦  dbdep/24.; 

’22  dimen f 11,1 )awebdep7*(d-dbdep/12. ) /lonspac ; 

323  dimenf  1 1 ,  2)  =  webth7 ; 

324  dimenf 1 1 , 7)=d/2  +  dbdep/24.  p 

’25  dimenf 12, 1)aflanth7*d/lonspac; 

’26  dimenf  12 , 2 )=  flanul7 ; 

’27  dimenf 12, 3)*d/2  ♦  dbdep/24.; 

’23  If  opt  =3  then  do; 

729  dimenf  13,1)  a  12. »b; 

3’0  diraen(13,2)  a  dbplt; 

331  dimenf  13,3)  a  (botplt  ♦  dbdep*  dbplt/2.  )/12. ; 

’32  dimenM4,1)  a  uebth9*b/lonspac; 

733  dimen(14,2)  a  webdep9; 

334  dimen(14,3)  a  (botplt  *  dbdep  -  webdep9/2. )/12. ; 

735  dimenf 15, 1 )  a  flanui9*b/lonspac; 

7’6  dimenf 15,2)  a  flanth9; 

377  dimer.C  15,3)  =  (botplt  ♦  dbdep  -webdep9  -  flan th9/2. )/12. ; 

”3  dimenf  16,1)  a  2»aiddbgird th*(ceil( b/30. )  -  1)  *  cendbglrdth; 

9’9  dimen(16,2)  a  dbdep; 

’40  dimenf 16, 3)  a  (botplt  +  dbdep/2. )/12. ; 

34  1  er.d; 

’42  hullsm:  sigma_a=0; 

’4’  slgma~ayaQ; 

744  3igma_ay2a0; 

’45  sigraa-lo=Q; 

’46  do  iaT  to  16; 

’47  ar  ea=dimen(  i ,  1  )*dimen(  1 ,2) ;  Vi 

’43  sigma  a=  sigmaa+area ; 

’49  sigma  ayasigma_ay*area*dimen( 1,3);  ' 

’50  sigma~ay 2a sigma  ay2*area*dimen(  i  ,3)*dimen(  i  ,3) ; 

’51  sigma~ioa sigma  To* dimenf i , 1 )*dimenf i ,2)*»3/1728; 

752  er.d;  ~ 

’57  centroidasigma_ay/sigma  a; 

754  inertia; sigma  ay2*sigma_io-centrold*slgma  ay; 

755  modbota  inertia/centroid ; 

356  moddkainertia/(d-centrold) ; 

757  if  smreq<amodbottsmreq<amoddk  then 

753  go  to  hullwt; 

759  if  dkplt<( botplt  *  n»0.0625)  &  moddk<modbot  &  dkplt<2.  then  do; 
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160 

161 

Hi. 

vf.v 

if.a 

165 


165 

560 

’TO 

171 


175 

176 

177 
175 
175 
150 

*  :2 
:  3 
■3 ;  a 

156 

157 
15,3 

59 
'•  >  0 


i;i 


5  17 


-7-1 
7  0  a 


1  :6 
-17 


<*10 
-1  t 
*•12 
■511 
a  1  a 

4  1  5 
ul6 
"17 
"13 
"1  0 


dkpl t=dkpl t+ . 0625 ; 
go  to  hgmod3; 
end; 

if  f X anwi5<webdep5/2  &  fl  an  wi5  <32  .*  web  th5  &  noddk<oodbot  &  fl anwi5<lonspac*  12.  then 
do ; 

flar.wi5  =  fl  anwi5  +  .5: 
go  to  hulcalo; 
end ; 

if  flanth5<(webth5+0. 125)&moddk<modbot  then 
do; 

fl an th5 = f 1 an th5+ . 0625 ; 
go  to  hulcalo; 
end ; 

if  botplt<1 .4375  then 
do ; 

botplt=botplt+.0625; 
go  to  hgmod  1 ; 
end ; 

if  flanwi  1<webdep1/2  &  flanwi  1<32.*webth1  &  flanwi 1<1 2. ‘lonspac  then 

do ; 

flanwi  1  =  flanwi  1  +  .  5; 
go  to  hulcalc; 
end ; 

if  flan  th  l<(  webthl+0. 125  )  then 
do ; 

f lan th1=flanth1+. 0625; 
go  to  hulcalc; 
end; 

if  modbot<smreq', raoddk<smreq  then  do; 

if  n=  raaxr.  then  put  ed  it(  "required  section  modulus  cannot  be  obtained", 

"  with  reasonable  scantlings  increases" .lonspac .xvrspac) (col(2 ) ,a ,a ,2  f(6,2)); 
go  to  endlps; 
end ; 

put  skip(2); 

put  editf "results  of  hull  section  modulus  calculations")  (col(  15)  , a) ; 
go  to  endlps; 
hullwt:  longarea=0; 

do  i=l  to  16; 

lor.gareaslongarea+dimen(  i  ,  1  )* dimen (  i  ,2) ; 
end; 

longwt  =  longarea*3.4; 

if  opt‘=3  then  xvrs1=area2*b*3. 4/xvrspac; 
else  xvrsl  =  ; 

xvrs2=area"*(d  -  dbdep/ 1 2 . ) *6 . 8/xvrspac ; 
xvr sirar ea6 *b*3 . 4/xvrspac ; 
xvr s"=ar ea8*( d  -  dbdep/ 1 2 .) *3 . 4/xvrspac ; 
xvrs5=b*i d-dbdep/12. ) *bhdpl t»uo.8/( xvrspac*ntrbkd) ; 
xvr s6  =  ar  ea7*( b/ lonspac) *( d- dbdep/ 12. )*3.4/( xvrspac*ntrbkd) ; 
kl*7.83*pi; 

if  opt  =1  then  k2  =  -0 . 1"5 *pi*  ( d- (deepb+dbdep) /1 2. ) ; 

else  k2  =  -0 . 345*pi*( d- (deep2rdeep6)/12. ) ; 
k  i  =  -0 .  <ji  *  12  *(  d-  dbdep/  12.)*xvrspac; 
astan=pi»(<-k2+sqrt(k2*k2-4»k1*kl))/(2*k1))«*2; 
if  opt  "3  7  then  wtstan  =  3 . 4*astan*  ( d- <  deep  1  edeep1)  )/1 2. ) ; 

else  wtstan  =  3 . 4*astan* ( d- ( deep5+dbdep) / 1 2. ) ; 
xvr  s7  =  wtstan*  stans/xvr  spac; 

ftwt  =  lor.gwt  +  xvrs  1exvrs2+xvrs3+xvrs4+xvrs5+xvrs6+xvrs7 ; 
if  opt  =  2  then 

ftwt3ftwt+3.4*(dimen(10,1)*dimen(10l2)+dimen(11,1 )*dimen( 1 1 , 2)+dimen( 1 2 , 1 )*dimen( 1 2, 2) ),vrs4 
if  opt  3  3  then  ftwt  s  ftwt  *  3 . 4*dbdep*slddbgird  th*b/xvrspac; 
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weight; ft wt* 1/2240. j 
if  weight<minwt  then  do; 
mir.wt  =  weight ; 
bestlonspac: lonspac; 
bestxvrspac:xvrspae; 
bestmodbotrmod bot ; 
bestrnoddicmoddk; 
bestr.=n; 

end; 

if  moddkemoddktemp  4  mod  bot:  mod  bot  temp  then  n:maxn; 
else  do; 

modbottemp:modbot ; 
mod d k t era p: mod d k ; 

er.d ; 

if  cycle:0  !  cycle=1  then  put  skip  ed it( "bottom  modulus: " .raodbot ."deck  aodulus:",moddk, 
"estimated  bare  hull  weight:",weight) 

(col (2 ) ,  7  ( a , f (6  )  ,x ( 2 ) ) ) ; 
sraactl:  proceduref  s,tp  ,smr) ; 

del  ( tp ,tw, w  ,tf  ,f  ,p ,s  ,smr  ,ap,aw,af  ,yp,yw,yf  ,y|n  ,im ,smf  ,am)  dec  float; 
if  tp>:.375  then 
tw: tp- . 125 ; 
else  tw:tp; 
w:’.5; 
t  f  :  tp  ; 

f  :  max( tw.0.750); 

wbest  .twbest  ,fbest  ,tfbest  ,smf  ,srabest:0; 
scar.l  im:0.0; 
p: 1 2  *s ; 

sracalc:  ap:p*tp; 

aw:w*  tw; 
ar:f»tf ; 
yp: tp/2 ; 
yw:tp+w/2; 
yf:tp+w+tf/2; 

ym: (ap*  yp+ aw* yw+af* yf)/( ap+aw+af ) ; 
im: ap‘ yp*  yp+aw*  yw*  yw+af*  yf*  yf  +  ( tw*w*w*  w)/1 2- 
ym* ( ap* yp+aw* yw+af* yf) ; 
sraf:  im/(  tp+w  +  tf-ym); 
if  sraf>:smr  then 
loopl:  do; 

am:aw+af ; 

abest:ara; 
wbest:w ; 
twbest: tw; 
fbest:f ; 
tfbest=tf ; 
srabest:sraf ; 
go  to  endsml ; 

end; 

if  w< 1 8 .4 w<5 *f  4  w<75 .* tw  then 
do; 

w:w+.5; 


go  to  sracalc; 
er.d ; 

if  f : tw  then  f:ceil( f/0.25)*0.25; 
if  f<  w/2  4f<  32 .  *  tw  4  f<  lonspac*  12.  then 
do; 

f  =  f+  .  5 ; 
go  to  sracalc; 
end ; 
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if  tf<tp  then 
do ; 

t  f=  tf*.0625; ' 
go  to  sacalc; 
end ; 

if  tw<tp  then 
do; 

tw=tw+.0625; 
go  to  smcalc; 
end ; 

else  do; 

put  edit(  "scantl  ing  limits  reached  in  smact  1")  (col(2 )  ,a) ; 
if  cycle  =  2  then  put  data( lonspac .xvrspac ,n) ; 
scanl im= 1 ; 
go  to  loopl; 
end ; 

er.dsml:  end  smactl; 
smact2:  proeedur  e(  tp,s  ,smr  ,dep) ; 

del  f  tp  , tw,w,tf  ,f  ,3  ,smr  ,ap,aw,af  typ,yw,y f  ,ym,im ,smf  ,am ,smp,dep)  dec  float; 

scanl  im=0 . 0; 

if  gtype  =  2  J  gtype=k  then  w=1.5*14; 
if  gtype=1  then  w=2.k*12; 
if  gtype=3  then  w=1.5*12; 
w=ceil ( max( w,2. 5*dep) / .25 1*0 . 25; 
if  1<=200  then  tw=0.1«; 

if  1*>2G041<270  then  tw=0 . 3')  +  (  1-200 1/3500; 
if  1>=27041<700  then  tw=0.16  +  (1-2701/1000; 
if  1^=700  then  tw=0.50; 

if  gtype=4  then  tw=mln(0.  *14 ,  1 . 2e-1  +1  ,e-2*w) ; 
if  tp  >*  0.625  then  tw  =  max(tw,  tp  -  .251; 

else  tw  3  max(tw,  tp); 
t w=  ceil ( max( tw ,w/75 )/ .0625 ) "0 . 0625 ; 
tf=tp; 

f  =  cei 1 ( min( w/5 . 0, 20.0* tw)/0 .25 1*0.25; 
wbest ,  twbest  ,fbest  ,tfbest  ,smf  ,smp,smbest=0; 
smcalc:  ap=12*s*tp; 
aw=w*tw; 
af=  f»tf ; 
yp=  tp/2 ; 
yw=tp+w/2; 
yf=tp+w+tf/2; 

ym= ( ap*  yp+aw*yw+af*yf )/( ap+aw+af ) ; 
im=ap*  yp*  yp+aw*yw*yw+af*  yf*yf+  ( tw*  w*w*w)  /12- 
ya>*  (  ap*yp+aw*yw+af*yf  1 ; 
smf=im/(  tp+w+tf-ym) ; 
smp=  im/ym; 

if  smf>  =  smr  4  smp>  =  smr  then 
loopl:  do; 

amsaw+af ; 

abestsam; 
wbest=w ; 
twbeststw; 
fbest=f ; 
tfbest=tf ; 
if  smf>  =  smp  then 
smbest: smp ; 
else  smbest^smf; 

if  ((gtype=1  i  gtype  =3)  4  w>48.)  I  w>88.  then  do; 

put  skip  listCtransverse  web  debth  limit  exceeded  for  girder  type , gtype) 

sc  an 1 im  =  1.0; 
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if  w<47. 


if  cycled  then  n=maxn; 
return  j 

end ; 

go  to  endsm2; 

end ; 

4  w<=5 . * f  4  w<=75.*tw  then 


do ; 

w=w+1 ; 

go  to  smcalc; 
end; 

if  f<=w/2.0  4  f<  =  32.*tw  then 
do; 

f=  f+1 ; 

go  to  smcalc; 
end ; 

if  tf<(tw+0.5)  4  tf<1.4375  then  do; 
tf  =  tf  +  0.0625; 
go  to  smcalc; 

end ; 

if  tw< ( tp+0. 5)  4  tw<1.4375  then  do 
tw  =  tw  +  0.0625; 
go  to  smcalc; 

end; 

if  < ( gtype=2  !  gtype=4)  4  w<87.)  4  w<=5.«f  4  w<=75.*tw  then  do; 
w  =  w  +  1 ; 
go  to  smcalc; 

end ; 

if  gtype=4  4  tw<1.4375  then  do; 

tw  =  tw  +  0.0625; 
go  to  smcalc; 

er.d ; 

else  do; 

put  ed  it(  "scantl  ings  limits  reached  in  smact2")  (col(2 )  ,a) ; 
if  cycle  3  2  then  put  data(  lonspac  ,xvrspac  ,n)  ; 
scanlim: 1 ; 
go  to  loopl; 
end; 

er.dsm2:  end  smact2; 

if  cycle  =  1  I  cycle  =  2  then  go  to  endlps; 

put  skip(2)  edit("summary  of  principal  scantlings")  (col(20) , a) ; 
put  skip(2); 

put  edit("bottom  shell  -  ",botplt,"  In.  side  shell  -  ".sidplt, 

"  in.  bulkhead  plating  -  n,bhdplt,“  in.  deck  plate  -  M,dkplt) 
(colf2),a,f(6tiO,a,f(6,4),a1f(6l‘l),a,f(6,iO); 
if  opt  s’  then  put  editf"  in.  doub-bot  shell  -  ",dbplt)  f  a,f  (6 , 4)  ,a) ; 

put  ed  it(  "bottom  longitudinals:  flange-  ".flanwil,"  x  ".flanthl, 

";  web-  ".webdepl,"  x  "  .webthl ) (col(2) ,a ,x(2 ) ,f (5 ,2) ,a ,f (6 ,4) , 

a  ,f ( 5 , 2) ,a ,f (6, 4) ) ; 

if  opt'=3  then  put  ed it( "bottom  transverses:  flange-  “,flanwl2,"  x  ",flanth2, 

";  web-  "  ,webdep2, "  x  "  ,webth2) (col(2 ) ,a ,x(4 ) ,f (5 ,2) ,a ,f  (6 , 4) , 
a,f(5,2)1a,f(6,4)); 

put  editC’side  longitudinals:  flange-  ",flanwi9,"  x  ", flanthl, 

";  web-  " , webdepl,"  x  " , webth 3 ) ( col<2 )  ,a ,x( 4 )  ,f (5 , 2) ,a ,f < 6 , 4) , 
a  ,f  f  5 ,2  J  ,a  ,f  ( 6 , 4 ) ) ; 

put  edit("side  transverses:  flange-  ",flanwi4,"  x  ",flanth4, 

";  web-  ",webdep4,"  x  " ,webth4 ) ( col(2 ) ,a ,x(6 ) ,f (5 ,2) ,a ,f(6, 4) , 
a ,f (5 ,2) ,a  ,f(6, 4) ) ; 

put  edit(  "bulkhead  longitudinals:  flange-  ",flanwi7,"  x  ",flanth7, 
web-  ",webdep7,"  x  "  ,web th7  ) (col(2 )  ,a  , f(5 , 2)  ,a  , f (6 , 4 )  , 
a ,f  (5 , 2) ,a  ,f  (6 , 4 ) ) ; 
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put  edit(  "bulkhead  transverses:  flange-  "tflanwl8,"  x  M,flanth8, 

web-  »,webdep8,"  x  " ,webth8 )(col(2 ) ,a ,x(2) ,f (5 , 2) ,a ,f (6, 4) , 
a,f(5,2),a,f(6',iO); 

put  edltC'deok  longitudinals:  flange-  ”  ,flanwi5 , "  x  ",flanth5, 

"j  web-  ",webdep5,"  x  "  ,webth5)  (col(2 )  ,a  ,x(<t  1  ,f  (5 , 2)  ,a  ,  f(6 , 9) , 
a,f(5,2),a,f(6,lO); 

put  editC'deck  transverses:  flange-  ",flanwl6,”  x  n,flanth6, 

web-  ",webdep6,"  x  "  ,webth6 ) (col(2)  ,a ,x(6 ) ,f (5 ,2) ,a ,f (6 ,9) , 
a,f(5,2),a,f(6,91); 

if  opt  =  1  then  put  edit( "doub-bott  longitudinals:  flange-"  ,flanwi9 x  "  ,f  lanth9  ;  web-  ",webdep9, 

“  x  " ,webth9 1  (eol(2 1 ,a ,f (5 , 2) ,a ,f (6, 4) ,a ,f (5 , 2) ,a ,f(6 ,9)1 ; 
er.dlps:  end;  end;  end; 

if  cycle=2  then  put  edit(  bestlonspac  .bestxvrspac  ,bestn  ,sareq,bestmodbot  ,bestooddk)  ( f(5 , 2) ,  f  ( *1 )  ,x(3  )  ,f(2) ,  3  f<6)> 
else  put  d at a ( bestlonspac ,bestxvrspac ,bestn , snreq .bestmodbot ,bestmoddk) ; 
return; 
end  bargdesb; 
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NANtS  OECLAREO  IN  THIS  COHPI LOT lu.l. 


IOENTXFIfcK 

OFFSET  LOC 

STUKAGE  CLASS 

DATA 

TrPE 

ATTRIBUTES  AND  REFIRE NCFS 

NAMES  CECLASEO  ar 
abe$t 

DECLARE  STATEMENT. 

001070 

au  t  om  a  t  i  c 

float 

tec (101 

del  25  '.et  ret  9  3  121  153  171  201  21  7  2  35  253 

a  f 

000122 

automatic 

float 

dec  1 10) 

278  461  524 

det  498  set  ref  517  521  521  522  522  52  5 

af 

000125 

auto ua t  ic 

float 

idC ( 10) 

del  438  set  rel  450  454  454  -56  **55  461 

ait 

000152 

au  t  o  m  a  t  i  c  * 

f  lout 

■Joe  (101 

del  458  set  rel  jQ  161 

a* 

000107 

automatic 

1  lo  it 

li  e  (  101 

del  490  set  rel  528  529 

30 

000117 

au  tom  at  ic 

1 1  Jdt 

•led  10) 

del  436  Set  ret  448  454  454  455  455 

ao 

000110 

automatic 

float 

dec  1 10 1 

del  496  set  rel  515  521  521  522  522 

area 

001 073 

au tom  at  ic 

float 

JlcUJI 

del  25  set  ret  347  34  8  345  350 

ar  eal 

000117 

au  t  o»a t  i c 

f  lout 

Joe (101 

del  6  set  ref  99 

ar  ea<? 

000152 

au  tom  at ic 

lloat 

dec ( 1 0 ) 

del  6  set  rel  121  401 

ar  eu3 

000174 

au  tomot ic 

1 1  oat 

uecliO) 

del  8  Set  ref  153 

area<* 

000304 

automatic 

float 

doe (10) 

del  8  set  ret  171  403 

ar  ea$ 

00032b 

automatic 

f  loaf 

Joe (13) 

del  13  set  ret  201 

areio 

00  0  3  5b 

avi  t  OH  8  t  iC 

float 

dtc(li) 

del  13  set  rel  217  404 

area? 

000575 

au  tom  at  ic 

f  l  out 

Jeclld) 

del  15  set  ret  235  437 

areas 

030  *.25 

au  tomat ic 

float 

esc (id) 

del  15  set  ret  253  -05 

ar 

000623 

au  tamat ic 

float 

doc (10) 

del  21  set  ret  278 

as  tan 

000  5b5 

automat ic 

float 

dec ( 1 0) 

del  19  set  rel  412  413  414 

an 

000117 

automat i c 

float 

dec (10) 

del  498  set  rel  516  521  521  522  522  52  8 

an 

000122 

au tom  at  ic 

float 

oec ( 10) 

del  438  set  ref  449  454  454  455  455  46C 

0 

par  am e ter 

float 

dec ( 10) 

del  3  ret  l  37  38  43  44  47  47  43  51  5i  52  55  56 

best l onspac 
b  e  s  t  m  o  jc  o  t 

00  0o42 

parameter 
au  toniat  ic 

lloat 

float 

J  c  c  ( l  0 ) 
dec ( 1 0 ) 

63  68  113  232  295  298  310  313  316  329  )32  335 

338  401  404  40?  407  419 
del  23  set  ret  1  423  612  613 
del  23  set  rel  425  612  613 

oe  strn  o  j-JK 

000b45 

automatic 

» loot 

dec (10) 

del  23  set  rel  426  612  613 

oesf  r. 

00112b 

au  turn  at  ic 

fixed 

t>in(17*0) 

del  26  set  rel  427  612  613 

oestxvrspac 
ondu  1  t 

000367 

our am  e  ter 
au  tom a t  ic 

lloit 

flout 

lee  (10) 
dec ( 1 0) 

del  23  set  ref  1  424  612  613 

del  15  set  rel  230  231  231  232  23-  251  252  319 

botol t 

000106 

automatic 

float 

dec  < Id) 

406  581 

del  6  set  rel  79  81  83  85  88  88  37  98  119  120 

cb 

cerjoqirdth 

0G0oS4 

Parameter 

automatic 

float 

float 

aec(lO) 
dec  (Id ) 

293  294  297  300  331  334  337  340  359  373  375  375 
581 

del  3  rel  1  37 

del  21  set  rel  269  270  270  334 

cenrro ia 

000460 

automatic 

float 

dec  (1 G )  . 

del  17  set  ret  353  354  355  356 

COef  t 

c  o  un  f  r 

00111b 

para  meter 
au  tom  at i c 

l  lout 
fixea 

dec(lG)  1 

Dinll7.0) 

err- jy  del  24  rel  1  31  34  34  34 
del  2{  set  ret  33  34  34  34  34 

c  vet  • 

parameter 

t  i  k«‘J 

u  in  ( i  7 ,  b) 

del  2o  ret  1  36  38  77  77  434  43-  578  578  612  492 

3 

parameter 

float 

lec  (10) 

540  573 

del  3  ref  1  38  89  91  93  144  1-fc  148  16r*  166  230 

dbaep 

000576 

automat ic 

lloat 

dec  (Id) 

2 47  248  271  272  273  302  303  334  31o  32  7  309  312 
315  318  320  321  322  324  325  327  3?°  403  4U5  406 
407  409  410  411  413  414 

del  21  set  ref  113  116  144  146  145  165  23d  247 

aopl  t 

000573 

au  tomat ic 

float 

dec ( 1 0 1 

271  272  273  320  321  322  324  327  331  334  337  339 

340  <.03  -15  4 On  407  409  411  414  -19 

del  21  set  ret  265  26b  266  27b  277  3  30  331  584 

oetol 

000122 

au 1  cm  at ic 

float 

dec  (10) 

del  6  set  ret  108  120  413 

<J«cp£ 

000155 

au  tow  at  ic 

f  1  oat 

dec  (1C  > 

del  6  set  ref  122  lbb  248  410 

deeoi 

000177 

au  tom at ic 

float 

dec (Id) 

del  8  set  rel  154  170 

deeoS 

000531 

au  tom  at ic 

float 

dec (1G) 

del  13  set  rel  20 2  216  413  -14 

(Jeeo6 

OOOiol 

au  tomat  ic 

float 

oec (10) 

del  13  set  ref  218  247  248  409  -10 

deep/ 

00040J 

automat  ic 

•  loaf 

dec(10> 

del  15  set  ref  23b  252 

320 


deo 

oar ameter 

float 

J  e  c  ( t  u  l 

ac  1 

49d  ref  497  503 

di  «en 

OOQoSO 

au  T  ora  a  t  i  c 

float 

uee 1 1 u 1 

array  oc I  24  set  ret  291  292  293  29*  2 J5  296  257 

2  90 

293  300  301  302  J0J  304  335  336  30  7  3C‘  335 

310 

3il  312  313  314  315  316  31/  3 13  31  J  323  321 

322 

323  324  32j  326  327  329  330  331  33  2  3  3  !  334 

335 

33b  33/  333  339  340  34/  3*7  J* J  353  35:  351 

351 

338  393  41/  41/  41/  41/  41/  41/ 

0Kp|  t 

000315 

au  lariat  ic 

float 

dec  (1  0  1 

del 

13  set  ret  1  82  184  186  133  ill  191  193  2C3 

2U 

216  311  312  315  31(  359  3u9  >63  3o0  581 

e  t  to  1  a  tel 

000527 

au  f  cm  a  t  i  c 

float 

Jecl 1 0) 

dc  1 

19  set  ret  97  >8 

e  I  to  1  a  te<? 

GOG S 32 

au  t  urn  a  t  i  c 

float 

oec (101 

dc  1 

19  set  ret  119  120 

e  t  to  1  a te3 

000535 

a  u  t  f  m  a  t  i  c 

t|  JdT 

uectlO) 

dc  1 

19  set  ref  150  152 

9  t  fp  1  3  te4 

G  0  Q  5  H  Q 

au  tomat ic 

f  loat 

utc ( 101 

del 

19  set  ret  16/  1/C 

e  t  fol 3 te5 

000  5*#3 

automatic 

Hoar 

oec 1 : 01 

dc ) 

19  set  ret  199  200 

e  f  fol  ateb 

0GG  bVo 

au  tom at  ic 

f  Id  it 

oec  f 1 0 1 

dc  1 

19  set  ret  214  216 

e  t  fol a te7 

0  00  551 

au  tomat ic 

float 

oec  1 1C  1 

ac  1 

14  set  ret  232  234 

effpl  *  t«8 

000554 

au  t  on  a  t  i  c 

flait 

dec  Cl 3  1 

ac  1 

19  set  ref  251  252 

9  f  fol a  te9 

0U0ol2 

automat ic 

t  loot 

jec (10) 

oc  1 

21  set  ret  276  2/7 

ocom 

automatic 

float 

oec (10) 

dc  1 

498  set  rel  513  51?  532  545  542  550  552  552 

563 

000111 

au  tomat  ic 

float 

JecIlO) 

dc) 

438  set  rel  444  450  464  469  4/t  4/4  4/4  4/5 

4  75 

4/5  4/7  477 

1  ac  t 

000441 

automatic 

f  loaf 

a  ec (1 0 1 

dc  1 

17  set  ret  31  34  3? 

f  oes  I 

tG  10  7b 

automat ic 

flont 

dec (iUl 

dc  1 

25  set  ref  102  124  156  1/3  284  220  238  255 

230 

4«5  464  51-*  532 

1 1 antnl 

000130 

au  tomat  ic 

Mont 

dec (101 

dc  1 

6  set  ref  101  108  249  300  383  185  385  585 

f 1  an th2 

00021b 

3u  t  u  m  a  t  i  c 

float 

dec  1 1 0 1 

dc) 

8  set  ret  123  130  5-8 

1  1  an  t  ni 

Q0G202 

automatic 

float 

dec  (13  f 

del 

8  set  ref  155  162  3  7  591 

f  1  an  tn*# 

000227 

au  1 0  m  a  t  i  c 

float 

dec  1  IQ) 

dc  1 

8  set  ref  1/2  179  594 

f  l  an  f  h  5 

3  0  0  3  3  *t 

au  tom  at ic 

float 

uec  f 1 J  > 

del 

13  set  ret  203  210  317  Jld  368  3/0  370  603 

f  1  jnt  hb 

GCG2h3 

automat ic 

float 

JectlG) 

dC  1 

8  set  ret  219  226  606 

1 1  an  r  h7 

03 J  * 03 

au  tomat  ic 

float 

deceit) 

dc  1 

15  set  ref  237  244  325  59/ 

f  t  antn-J 

00  0  2  57 

aut  omat ic 

float 

jtcliU) 

del 

8  set  re!  254  2bl  600 

f 1  an  tn  i 

OJUuJo 

automat  ic 

float 

oec 113) 

dc  1 

21  set  re!  279  285  336  337  604 

1 1 an*  i  x 

000125 

au  t  am  at  ic 

1 1 0  of 

Jec. 1 13) 

del 
535 
dc  1 

6  set  rel  102  1C8  298  3/8  378  3/8  380  380 

1  i  an  n  i  l 

00  G  2 1 3 

au  t  cm  at  ic 

float 

dec  fiat 

8  set  ref  124  130  568 

II  an  r.  i  j 

300235 

aut  am af  ic 

f  tout 

dec  1 1 0 ) 

dc  1 

8  set  ret  156  162  3  .8  541 

!  1  an  v«  i  * 

00  0  232 

au  to  «  at  ic 

float 

oec ( 10 1 

dc  1 

8  set  rel  i73  1/4  59-t 

f  1  an  «  i  j 

00  u  33  7 

au  tomat  ic 

float 

tec  110) 

dc  1 

15  set  ret  204  210  316  363  363  363  365  365 

603 

f  1  ant*  io 

00024b 

au t  om at  ic 

f  loot 

dec  110) 

dc  1 

8  set  ref  228  226  606 

f 1 anw  i  7 

00  U40b 

aut  omat ic 

f  f  out 

dec  1 10  I 

dc  1 

15  set  ref  238  244  326  59/ 

1  1  an  »*  i  3 

000262 

automatic 

f  1  O 

oecl I3t 

oc  1 

8  set  ref  355  261  610 

1  i  an*  m 

00  6  0  31 

au  tom  at ic 

f  1  oai 

dec  110) 

dc  1 

21  set  ret  280  285  535  604 

I  f  »f 

030557 

au  1 0  m  a  t  i  c 

float 

dec l i 0 ) 

del 

19  set  ret  416  41/  41/  41’4  414  *20 

■jt  yD9 

001124 

aut  cmat  ic 

1  i«a<» 

ttnll 7  *6 ) 

dc  1 

26  set  rel  118  164  215  253  500  500  501  502 

506 

53/  53?  538  563  5u3  56/ 

hi 

OOfllll 

au  t  o  n  u  t  i  c 

float 

Jec < 10) 

del 

6  set  rel  89  91  93  45  9b  11/ 

000166 

aut  omat i c 

float 

dec (101 

ac  1 

8  set  re!  144  Ih6  148  151  led  233  249 

hi 

000320 

automatic 

float 

dec  110) 

del 

13  set  rel  192  194  196  198  213 

n5 

00Qo07 

au  tomat  ic 

float 

oec ( 1 fl 1 

del 

21  set  ret  2/1  2/2  2/3  2/4 

1 

301117 

au  tom  a  r  i  c 

fixed 

bind  7.3) 

dc  1 

26  set  ret  346  347  34/  349  350  350  351  351 

397 

398  398 

ihc 

001*22 

automatic 

f  i  r.  e  1 

0  4  n  1 1  7  f  0 ) 

dc  1 

26  set  ret  76  133  229  290 

i  * 

00C144 

automat  ic 

float 

uec (10 1 

del 

43d  set  ref  455  45/ 

t * 

000141 

automat ic 

float 

cec 1 lb) 

dc  1 

498  set  ref  522  524  525 

incr 1 onspac 

oiraieter 

float 

Jec  1 1 u 1 

del 

4  ref  1  70 

*ncr xarspac 

caramel er 

f  loaf 

dec (10) 

del 

4  ret  1  71 

inertia 

00  0  463 

au  tomat ic 

float. 

dec  1 iO  ) 

del 

1/  set  ret  354  355  356 

321 


Kl 

ooiuo 

au  t  nmat  Ac 

*  loaf 

oec (10) 

dc  1 

27  set  ret  438  4i2  412 

001133 

automat  Ac 

1  loaf 

Jec( 101 

del 

27  set  ret  439  410  412  412  412 

«3 

dull  36 

ajtonat Ac 

1  loaf 

d  ec  ( 1 0  1 

dc  1 

27  set  ref  411  *12 

1 

oar  ame  ter 

•  loaf 

uec  (10) 

oc  1 

3  ret  1  31  33  34  38  72  79  79  31  fcl  39  41  <ji 

dl 

33  134  134  .3b  13b  144  14b  I46  1*6  149  192 

IS- 

194  1  94  19s  266  267  269  271  ife  272  272  273 

<*20 

534  565  585  565  566  566  536  537 

12 

000154 

automat  Ac 

Moat 

oec  (1 0 ) 

del 

6  set  ret  46  43  52  56  63  68  117  11  7  119  213 

213 

214  *11  502  502 

l  4 

000331 

automatic 

1  1  Oat 

oec  4101 

del 

8  set  ref  16  .  166  167  168  lot  2*7  248  249 

2u9 

251  500 

1 onjarda 

000*7* 

auto* at ic 

Molt 

oec  Cl  0 ) 

dc  1 

19  set  ret  396  311  398  433 

1  or-»*t 

000477 

automat  ic 

float 

iecClO) 

dc  1 

19  set  ref  430  416 

1 onspac 

000100 

au  tom  at  ic 

float 

oec ( 10 l 

dc  1 

3  set  ret  70  77  79  31  95  9t  37  1  3*  1  36  150 

151 

182  112  19*  198  199  230  232  233  265  27 4  276 

2  95 

298  3  (4  307  313  316  322  325  332  33  5  363  378 

389 

407  423  *75  492  573 

maxi onspac 

parameter 

Moat 

dec (1C) 

del 

4  ref  1  70 

maxa 

parameter 

t  A  <ej 

f  ind  7,01 

dc  1 

2o  ref  1  75  107  129  161  178  239  225  2  *3  263 

2  8b 

399  *29  5*0 

m  a  xx  v  r  sp  ac 

oar o  m  e ter 

t  1  lot 

jcc ( 10 ) 

del 

4  ref  1  71 

m irl cnsoac 

par  ameter 

float 

uec(lO) 

del 

4  ret  1  73 

m  i  nn 

parameter 

f  A  <e  i 

Oin(i7i0) 

del 

26  ref  1  75 

minnt 

parameter 

float 

fec( 1GI 

del 

23  set  ret  1  30  421  422 

•  A  ruwrspac 

par  oinet  er 

f  1  JOf 

dec ( 10 ) 

del 

4  ret  1  71 

m  o  3  oo  t 

000*66 

automatic 

II  <>  i  f 

dec (101 

dc  1 

17  set  ref  355  357  359  3o3  368  388  425  429 

*♦31 

434 

moduGt  feao 

0011 44 

automatic 

float 

dec  ( 1*0 1 

del 

27  set  ret  74  429  431 

noajk 

000471 

au  t  omat  A  c 

f  1  >3 1 

oec (10) 

dc  1 

1?  set  ref  356  357  359  363  361  381  426  429 

h32 

434 

iBOClkl  enp 

001141 

automatic 

1 1  o  t 

dec (id l 

del 

27  set  ret  73  429  432 

AlO'JVall 

300141 

au  t  o  .m  a  t  A  c 

floir 

oec ( 1 u  > 

del 

6  set  ref  105  108 

■  O'Jva  1  2 

0  0  01  oO 

automatic 

f  lO  3t 

u«ctiCI 

del 

6  set  ret  127  130 

m  3J*dl  3 

000176 

au  tom  at  A  c 

t  1  U  At 

dec (lH) 

dc  1 

»  set  ret  159  152 

noOi/aU 

000  011 

aut  omat  Ac 

1  lout 

uec ( 10 1 

ucl 

8  set  ref  176  179 

»  o  J «/  j  1  5 

000360 

au  t  jmdt  Ac 

flOut 

oec ( 1 U  I 

dc  I 

13  set  ref  207  219 

mou^al 6 

0 0  0  304 

automat  Ac 

float 

oec ( l o I 

del 

13  set  ret  223  226 

m  o  a  v  a  i  7 

000417 

automatic 

float 

tioc  <  1 0  ) 

del 

15  set  ret  241  2*4 

ioava 1 d 

000430 

au  t  out  a  t  i  c 

float 

dec (10) 

acl 

15  set  ref  258  261 

mo  a*  a  I  9 

OOOalO 

automatic 

flu  It 

uec (10) 

del 

21  set  ret  283  215 

n 

001120 

aut  umat  Ac 

1  Ax  ad 

L  A  n( i 7  f G I 

dc  1 

26  set  ref  75  107  129  161  171  209  225  243 

260 

296  35 t  389  427  425  492  5*C  573 

ntroKti 

001127 

au  t  om  at  ic 

f  A  <e  I 

o  A  n  ( 1  7  *  C I  if 

del 

2o  set  ref  72  406  407 

op  t 

par  .tm  e  t  er 

ti  x  e.i 

oin(l7,0| 

del 

2b  ret  l  41  61  66  95  112  165  247  204  328  431 

k  09 

413  417  419  514  588  609 

P 

000114 

au  tom  at  Ac 

float 

otc (101 

del 

438  set  ref  447  448 

p  A 

001121 

automatic 

f  i  < 

o  A  p ( l /  ,0) 

del 

26  set  ref  29  4J8  4ju  410  412 

s 

pir jmeter 

f  1 . .i  .i  t 

uec  < 1 U I 

del 

498  ref  497  515 

& 

par  ame  ter 

f  lout 

dec ( 1GI 

del 

433  ref  437  447 

sc  an  I  i  m 

0011 15 

automatic 

f  A «  e  •  • 

o  i  n  ( 1  7 , 0  ) 

dc  1 

26  set  ref  106  128  160  177  208  224  242  259 

28*. 

446  493  499  539  574 

secmodi 

000114 

au  turn  at  A  C 

flout 

dec (10) 

del 

6  set  ret  95  96  98  108  275 

StfCIO  Ji 

300147 

au  t  ota t  Ac 

f  loot 

dec ( 1 0 1 

del 

6  set  ref  117  120  130 

ssc^o  J  J 

000171 

au  tom at  A  c 

t  loaf 

dec (10) 

del 

8  set  ret  151  152  lt>2 

s  e  c  o  J  ** 

000307 

au  tom  at  i  c 

1  1  u  a  t 

oec (10) 

del 

8  set  ret  168  170  179 

secnod^ 

000323 

au  t  om  o  t  A  c 

float 

dec (101 

del 

13  set  ref  198  20C  210 

secnoao 

000  363 

au  t  on. at  i  c 

Moat 

uec (10) 

del 

13  set  ref  213  216  226 

secno J7 

000372 

au  to mat  Ac 

f  loaf 

dfec( 10 ) 

dc  1 

15  set  ref  233  234  244 

sacmodd 

000422 

au  t  om  a  t  A  c 

Moat 

Jec (1 u ) 

dc  1 

15  set  ret  249  252  261 

sec mod 4 

30  0  al6 

au  tomat  Ac 

f  loaf 

dec (10) 

del 

21  set  ret  274  275  275  277  245 

322 


s i  C3b*j  ird Th 

030631 

automatic 

float 

oec 11 01 

del 

21  set  ret  267  cad  262  33d  41S 

sidalf 

000163 

automatic 

float 

oeciiOl 

del 

&  set  rel  13m  136  13d  1*6  163  1*3  150  152 

167 

170  301  631 

s  1  a 

000664 

automatic 

float 

dec (101 

del 

17  set  ref  342  343  342  353 

s  i 

000447 

automat  ic 

float 

a act 101 

Jcl 

17  sot  rel  343  54}  345  353  354 

si**i  d_a/2 

000452 

aut  umat  ic 

1 1  o  it 

tied  Id  1 

del 

17  set  ref  344  350  353  354 

sis'a.io 

000455 

automatic 

float 

oecliOl 

del 

17  sat  ref  345  551  151  354 

smoist 

001101 

automat  ic 

float 

uecIlOl 

del 

25  set  rel  105  127  159  176  237  223  241 

258 

203 

445  466  514  534  536 

sm  f 

000147 

automat  ic 

t  Icimt 

OecliOl 

ocl 

430  sat  ret  •  '  5  457  458  466 

sm  1 

000144 

automatic 

float 

oec  1 131 

del 

458  set  ret  514  524  526  534  536 

smc 

000152 

automatic 

t .  oat 

oecliOl 

del 

698  set  rel  514  525  526  534  534 

STf* 

□  arameter 

1 1  oar 

aec  (101 

del 

438  ref  437  458 

stir 

parameter 

float 

uec 1 101 

del 

698  ref  497  526  526 

s  ra  r  e  'j 

00043d 

automat  ic 

Hoot 

j«c  1101 

del 

17  set  ret  11  39  357  35 7  388  349  612  613 

st  ans 

301123 

automat  ic 

1  i  «  e  i 

uinll7i3l 

dc  1 

26  sat  ret  45  49  53  57  61  67  62  63  63  6 

7  415 

sysprint 

000016 

con  >tant 

tile 

output  streac  uc 1  23  set  ret  26  3d  77  n 5  108  133 

14a 

162  179  184  210  226  246  261  23s  349  393 

394 

434 

579  580  581  564  585  528  591  pi-.  59 7  603 

tO  3 

feOb 

609  612  613  491  492  538  572  573 

t 

parameter 

Moat 

OecliOl 

del 

3  rat  1  33  113 

ft 

0C0106 

au  tomat  ic 

float 

doc  (101 

del 

*98  set  ret  512  517  520  524  533  555  555 

556 

556 

ft 

000106 

automatic 

Moat 

dec  1101 

del 

*38  sat  rat  443  450  453  457  465  493  482 

482 

t t oest 

0011U4 

au  tomat  ic 

float 

aedlOi 

del 

25  sat  ref  100  101  122  123  154  155  172  ; 

202 

20  3 

218  219  236  237  254  279  4a5  465  514  533 

tp 

parameter 

II  oat 

declipi 

del 

438  ref  437  439  439  441  443  448  *51  *52 

453 

457 

*80  *25 

tp 

parameter 

I  lout 

dec  (1UI 

del 

*98  rel  497  509  509  510  512  515  518  519 

520 

524 

559 

tM 

000100 

automatic 

1 1  oat 

dec (101 

del 

*98  set  ref  50*  535  506  537  509  519  509 

510 

510 

511  511  513  516  522  531  5*5  553  555  559 

559 

559 

559  563  567  568  568 

tw 

000103 

automat ic 

f  loat 

dec (101 

del 

*38  set  ref  *39  **1  ***  *49  455  463  469 

474 

*75 

485  487  *97 

thOcsf 

001107 

automatic 

Moat 

oec  (101 

del 

25  set  ret  103  125  157  17*  205  221  239  , 

256 

2fll 

*45  46  3  514  531 

* 

000103 

mu  f  on  a  1 1  c 

1  loaf 

Oec 11 01 

del 

*38  set  ret  *42  *49  *52  *53  455  *55  *55 

457 

462 

*69  4b9  469  *71  a71  475 

M 

000103 

automatic 

1  loat 

Oec (1 01 

del 

*98  set  rel  500  501  502  503  533  504  511 

513 

516 

519  520  522  522  522  52*  530  537  537  5*5 

545 

-■< 

5*5 

547  547  650  563  563  563  564  Son 

wDfcSt 

001112 

au  tomat  ic 

Moat 

led  131  <■ 

del 

25  set  ret  100  104  122  126  154  159  175 

202 

206 

218  222  23b  240  257  282  445  462  514  530 

neojeol 

000136 

au  t  am  at  ic 

I  loat 

dedl  0 1 

del 

6  set  ret  104  139  29b  297  300  378  585 

•ten  lap d 

000224 

au  temaf  ic 

1 1  vii 

oocliJl 

del 

8  set  ref  126  130  5  99 

»*fcO  jcp  4 

000273 

aut  .mat  ic 

II  oat 

aedlOi 

del 

8  set  ref  159  lo2  3  .4  591 

wee  iep<* 

000240 

au  tomat ic 

I  loot 

oec  (101 

del 

3  set  ret  175  179  594 

weo  j»p5 

000345 

automat  ic 

II  oat 

OecliOl 

dc  1 

13  set  ret  206  210  314  315  319  363  603 

weo  jfeOo 

000254 

au  tama t ic 

1  loat 

oec 1 1 0 1 

del 

8  set  rel  222  22e  606 

weoieo? 

000414 

automat  ic 

Moat 

oec liol 

del 

15  set  rel  240  244  322  597 

wee  jeo4 

OC027J 

au  tomat  ic 

Moot 

Jet.  (101 

dc  1 

8  set  rel  257  2ot  600 

weo  jeo 9 

000»37 

au  tomat  ic 

II  oat 

JedlOl 

del 

21  sat  rel  282  285  333  334  337  609 

weothl 

000133 

au  to* at  ic 

II  a  at 

OecliOl 

del 

6  set  ret  103  108  295  378  383  515 

«*eotn2 

000221 

automatic 

Moat 

dec! 101 

del 

0  set  ret  125  130  588 

weothi 

000210 

ou  tomat  tc 

Moat 

dec  1 1 01 

del 

8  set  rel  157  162  305  591 

wett  h* 

030235 

automat  ic 

1  loat 

aedlOi 

del 

b  set  ret  174  179  59m 

weoth? 

000342 

automat ic 

float 

oecliOl 

del 

13  set  ret  205  210  313  363  368  603 

weothb 

000251 

automatic 

Moat 

aedlOi 

del 

8  set  ref  221  226  606 

weoth7 

000411 

automatic 

Moot 

uec  M0) 

del 

IS  set  ret  239  244  323  597 

323 


MeorhA 

0002o5 

MtiPltlC 

1 tool 

uectlCI 

del 

A  set  rel  ii5t>  2t»l  610 

Heath? 

OOOui* 

3*1 1  cnatlc 

11)11 

U»*C  (101 

dc  1 

21  set  rel  261  265  332  609 

Rewnf 

ooo»b2 

ajtomat  ic 

float 

decllil) 

del 

15  set  rel  *20  *21  *22  *3* 

at  st  an 

0G057G 

.mtoeat  ic 

I  1  6  3 1 

fled 101 

del 

19  set  rel  613  61*  *15 

xvrsl 

B80502 

Jjtweal  ic 

1  1  O  1 1 

iiec(lO) 

del 

19  set  rel  601  *02  *16 

Kwr»2 

000505 

automat  ic 

1  10  It 

owe  1 lu 1 

dc  1 

19  set  rel  601  616 

xvr»3 

000513 

autoeat ic 

1  1  3  1  f 

doc (101 

del 

19  sat  ref  606  *16 

xvrs* 

000513 

3a  t  C3  a  T  i  c 

f  1  >ul 

a  c- cl 1 0 1 

del 

19  set  ref  *06  *16  617 

<wrs& 

000016 

ajtomat ic 

float 

dec  lid) 

del 

19  set  ref  636  616 

xvrsb 

000331 

automatic 

I  lo  at 

oectlOl 

del 

19  se  t  ret  4C  •  *12 

xurs7 

000336 

automat  ic 

1 1  oat 

decliel 

del 

19  Set  ref  *15  616 

xvrspac 

000133 

automatic 

1  loot 

dec  1 101 

del 

3  set  ret  71  72  77  95  95 

9fc 

96  47  117  119 

150 

151  151  167  168  168  166 

199 

213 

21* 

232 

2  33 

£33 

269  251  27*  276  389  6C1 

6J3 

656 

*0  5 

606 

607 

till 

615  6 19  62*  692  573 

yf 

000133 

au  T  on  a  t  i  c 

1 1  oat 

dec  lid! 

del 

698  set  rel  523  521  522 

522 

522 

yf 

0Gul3b 

du  tomat  ic 

1  lost 

dec  1 101 

del 

638  set  rel  653  656  655 

655 

655 

V® 

000136 

ajtoiiat  ic 

tlo  it 

aac 11 31 

del 

698  set  rel  521  522  526 

525 

V® 

000161 

automat  Ic 

1 1  oat 

dec  1 lu 1 

del 

638  Set  ref  65*  655  657 

yp 

000130 

automatic 

f  1  jar 

dec llil 

del 

634  set  rel  651  656  655 

655 

655 

VP 

000123 

automatic 

float 

dec 1  lul 

del 

698  set  rel  518  521  522 

522 

522 

y* 

000133 

automat  ic 

1 1  oat 

dec  1101 

del 

638  set  rel  *52  656  655 

655 

*55 

y- 

300130 

automat ic 

1 1  oat 

dec!  101 

del 

694  set  ref  519  521  522 

522 

522 

tiAlcS  CECLA-^tO 

df 

OECIARE  STATEMENT  AMU  NEVER  REFERENCED. 

OfeSTOpt 

001126 

au  tomat  lc 

line  i 

bind  7.01 

dc  1 

26 

1  t*^o 

030633 

automatic 

f  1  oat 

dec  1101 
• 

del 

17 

NA*C_S  CF CLAWED 

8Y 

EXPLICIT  CONTEXT. 

o  ar  f  a e So 

001220 

con  rant 

rn  t  ry 

external  del  1  rel  1 

ones 

0066*7 

const  an  t 

1  toel 

del 

230  rel  230 

OO  tt  O!* 

002320 

const  ant 

1  ao  el 

del 

79  rel  79 

JOfO  t 

005*36 

const  ant 

1  jo*  1 

dc  1 

264  rel  26* 

Jec* 

00*11* 

const  ant 

IlD-il 

del 

1H2  ret  142 

enal  ps 

013120 

con  st  anf 

Nudl 

del 

611  ret  110  131  163  180 

211 

227 

265 

262 

287 

J'ii 

395  578  611 

en  i %*?.  1 

0162  36 

const  ant 

1  dU  fc  I 

aci 

69b  rel  *67  696 

en  j»fR2 

019o72 

cons  t  an  t 

laoel 

del 

577  ret  5*3  577 

gir  jeri 

00272* 

const  an  t 

1  jo  el 

del 

112  rel  112 

%  ln*rl 

00  3o51 

const  an  t 

l.jo  el 

del 

165  rat  165 

gi  rj«f*3 

00**62 

cons  t  ant 

huel 

del 

213  rel  213 

gir  jer<» 

00515* 

const  an  t 

laoe  1 

del 

2*7  ret  267 

n  a*;>oi 

002565 

cons  t  ant 

1  jo  el 

l» 

del 

97  ret  97  376 

n  i-roa  3 

0G*2sl 

const  ant 

1  joe  1 

del 

199  ret  194  361 

nu  lea  1  c 

00612* 

constant 

1  jo  el 

del 

290  rel  113  229  290  36b 

371 

381 

385 

nulls* 

307172 

con  >t  an  • 

|J:)*I 

del 

3*2  ret  3*2 

null  nt 

010006 

cons  t  ant 

laoe  l 

del 

39b  ret  357  396 

4  n  torocl 

001261 

con  st  ant 

lar.ei 

del 

31  rel  31 

1  OC.Ji 

0137*7 

con  st  ant 

l.io  el 

del 

658  ref  *54  696 

1  oo  ol 

015227 

cons  t  ant 

Ijne! 

del 

52b  ref  526  575 

1  OC0S 

00203a 

cons  rant 

1  ao  e  l 

acl 

70  ref  59  66  70 

onmr  3 

001*27 

constant 

l  jo  el 

del 

37  rel  37 

on  »ir  ai 

002*30 

const  ant 

1  jo  el 

del 

89  ret  49 

ortR  ir  j2 

003511 

const  ant 

laoe  l 

del 

166  rel  1*6 

onmr  j  3 

00*177 

const  ant 

»ar>*l 

del 

192  ref  192 

retjrn 

001617 

const  ant 

laoel 

del 

61  ref  61 

si  ce 

303205 

cons  r  ant 

1  ane  1 

del 

13*  ret  11*  136 

■ 

smac  t  i 

013332 

const  an  t 

«ntry 

internal  o cl  *57  ret  56  1S2 

20C 

236 

277 

637 

s  ia  ac  1 2 

0162*0 

constant 

entry 

internal  ocl  *97  rel  120  170 

216  252 

*»*i? 

S*C  J  1  c 

01*707 

constant 

1  at>M  1 

del 

515  ref  515  568  553  557 

561 

565 

569 
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smea 1 c 

013-52 

con  *t  ant 

1'iaal 

del  HA 3  ref  AVI 

s  t  anal 

JO  2-12 

constant 

IjdoI 

•lei  80  ret  88 

s  t  ang? 

003223 

con. t  ant 

1  jo  el 

del  1  a 3  ret  1A3 

s  t  an  <J  3 

Q34iol 

constant 

1  cmc  1 

del  191  ref  lii 

st  aiOG 

004737 

const  ant 

1  U*>  i!  1 

del  231  ref  231 

NAMES  CECcAKEO  BY  CONTEXT 

OK  IMPLICATION. 

ceil 

oui  1 f  4  n 

t  jnction 

Internal  ref  33 
338  -7a  503  511 

f 1  cor 

boi 1 t  in 

I unc I i on 

internal  ret  72 

c  ji  1 1  i  n 

1  unc  t i on 

internal  ref  275 

nin 

Pui  1  t  i  n 

f  unc  t i on 

infernal  ret  97 
508  513 

sqrt 

pul  Min 

I  unction 

internal  ref  113 

SICAAGfc 

KECJlNEiltNTS  FQK 

THIS  PROGRAM. 

Ooject  Text 

Link 

Symo  ol 

Oafs 

S  r  a 

1 1C 

Start 

q  a 

1  bQ  h4 

lEObU 

15753 

1  L  u  3  4 

Lenqth 

24042  15753 

22 

^737 

71 

4. 

3LC2K  i.. 

■  ML 

STACK  SIZE 

TYPE 

hHY 

NOHOUlCK/WHO 

SHAKES  STACK  FkAHE 

472  478  483  488 


119  1 50  167  199  ?14  23?  251  276 


t>  *r  j»Je  i€ 
smac  1 1 
s*ac  t2 


91**  external  procedure 
29a  internal  practourc 
301  internal  orocecure 


is  an  external  procedure, 

contains  a  format  stateienti  ano  uses  I/O  statements, 
contains  a  format  statement*  ana  uses  I/O  statements. 


Im€  FOLLOWING  EXTERNAL  OPERATORS  ARE  USEO  iii  THIS  PROGRAM. 

fid.to.fl2  r __l  _a  r_^_d 

call_e*t_out  cal  l__int_this  return 

stream. io  put_dat a_e i *  put_tist_eis 

1 1 c ar.dac  put. field  out _f i el J.cnK 


r_e_3i 
ex  »_entry 
real.to_real.rJ 
ou  t_control 


r_l e_a 
int. entry 
dsqr  t 


n_qe_3 
out.enj 
cel l.cec 


THE  FOLLOWING  EXTERNAL  ENTRIES  ARE  CALLEO  bY  THIS  PROGRAM, 
deci ma l_exp_ 


THE  FOLLOWING  EXTERNAL  VARIABLES  ARE  UStU  U i  THIS  PROGRAM, 
sysprint  sysprint.fso 


LINE 

LJC 

l  1NE 

LOC 

LI  NL 

LOC 

LINE 

Lot; 

,  <L  I  NE 

LJC 

LINE 

LUC 

LINE 

LOC 

1 

■)C  12J4 

28 

00 1240 

29 

001262 

30 

COl 26* 

if  31 

031261 

33 

0512  76 

34 

C  C 1 322 

37 

uu  1  -*27 

38 

00 144b 

41 

0  J  lol7 

A3 

J  3 1 1 2  3 

44 

031530 

45 

031643 

47 

C016A- 

4  a 

001537 

A  9 

JU 1672 

51 

e  J 1o7a 

32 

301707 

53 

031722 

55 

351 724 

56 

0  517  JO 

57 

0 j 17*3 

59 

00  1745 

61 

0  j 1 7  Ab 

(j  2 

GO! 757 

63 

001761 

6- 

35231  5 

6b 

C  5  2  0  in 

o  7 

002021 

68 

002022 

70 

0 32036 

71 

002111 

72 

0021  65 

73 

032213 

74 

002216 

73 

G  G  2  221 

7b 

00  2230 

77 

CJ2c3; 

79 

UliaALll 

8  1 

0023 -6 

83 

032372 

85 

-0257c 

db 

w  G  2  4 1 1 

88 

00  2 h 1 2 

89 

20  2430 

91 

C  C  2  4  -e  1 

93 

302A  70 

93 

032501 

36 

002525 

9/ 

u  j  c  3*5 

98 

00260b 

49 

JJ2t,20 

10  0 

0  U2o25 

Id  1 

002631 

102 

032b35 

133 

C 32642 

1J*4 

0  0  25<*b 

105 

002o52 

1  Oo 

i.  J  2  65b 

;07 

0  U  2bh 1 

ldtt 

Qu2oo4 

111) 

302723 

112 

002724 

11  i 

0  G  2  7  3  0 

1 1  A 

00  2774 

ilo 

002775 

ii.7 

OoJLOa 

118 

0033  20 

119 

033022 

123 

003362 

121 

0  u  3 J  76 

122 

30  U02 

123 

u031Qt» 

124 

0  03 112 

12  5 

0031  17 

126 

053123 

127 

C  G  3 1  -  7 

124 

0J3134 

129 

O03137 

130 

0  3J142 

131 

0G  320  1 

133 

003202 

134 

C53205 

13  6 

033227 

13  4 

00  3253 

1 A  0 

JC  3257 

1  4 1 

003272 

143 

UG 32 73 

1 4  4 

333311 

146 

303344 

148 

CO  34 15 

150 

003450 

151 

003511 

152 

U  J531 

163 

J  3  5  5  -t  3 

154 

003547 

155 

0-3553 

156 

003557 

157 

00  356h 

158 

003571 

159 

03367o 

i  D  0 

u  03b 03 

lb  1 

003306 

162 

003611 

163 

0  3  36*50 

165 

QG3o5l 

166 

003676 

lb7 

0 J37lo 

4b  4 

Jt 3756 

16  9 

0337  76 

170 

004  000 

171 

C  3-014 

172 

004020 

173 

00  *0  25 

174 

0  0  A0  31 

176 

0  G  40 35 

17b 

03A0  At 

177 

004046 

178 

004355 

179 

0  G  4u  3«* 

180 

OOnlli 

182 

00-11- 

144 

vJ  0  4  1  J 1 

la  6 

004141 

188 

0-4145 

189 

03-160 

B.  3  DICTIONARY  OF  VARIABLES  USED  IN  THE  BARGE  DESIGN  MODEL 


DEFINITION  OF  VARIABLES  IN  THE  SUBPROGRAM  "bargdes" 


Variable  Definition  (units) 

abest:*  Optimum  frame  area  (includes  web  area  and  flange 

area)  (sq  in) 

absfact:  File  containing  data  for  coeff  array 

area:  Total  longitudinal  sectional  area  of  midship 

crossection  (includes  longitudinal  frames  and 
plates)  (sq  in) 

areal:  Sectional  area  of  bottom  longitudinal  frame  (sq 

in) 


area2:  Sectional  area  of  bottom  transverse  girder  (sq 

in) 

area3:  Sectional  area  of  side  longitudinal  frame  (sq  in) 

area4:  Sectional  area  of  side  transverse  girder  (sq  in) 

area5:  Sectional  area  of  deck  longitudinal  frame  (sq  in) 

area6:  Sectional  area  of  deck  transverse  girder  (sq  in) 

area7:  Sectional  area  of  bulkhead  longitudinal  frame  (sq 

in) 

area8:  Sectional  area  of  bulkhead  transverse  girder  (sq 

in) 

area9:  Sectional  area  of  double  bottom  longitudinal 

frame  (sq  in) 

astan:  Stanchion  cross  sectional  area  ( sq  in) 

b:  Molded  breadth  of  barge  (ft) 

bestlonspac:  Longitudinal  frame  spacing  for  minimum  hull 

weight  (ft) 
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bestmodbot : 
bestmoddk : 
bestn : 

bestx vrspac : 
bhdpl t : 
botpl t : 
cb : 

cendbgird  th : 
centroid : 
coeff : 

countr : 
cycle : 


d: 

dbdep : 
dbpl t : 
deepl : 
deep2: 
deep3: 
deep5: 
deep6: 
deep7 : 
dimen  : 


Bottom  section  modulus  for  minimum  hull  weight 
Deck  section  modulus  for  minimum  hull  weight 
Value  of  n  for  minimum  hull  weight 
Transverse  girder  spacing  for  minimum  hull  weight 
Thickness  of  bulkhead  plate  (in) 

Thickness  of  bottom  plate  (in) 

Block  coefficient  of  barge 

Thickness  of  double  bottom  center  girder  (in) 

Centroid  of  longitudinal  midship  crossection  area 

Array  containing  ABS  factors  used  in  section 
modulus  calculation 

Incremental  counter  used  in  do  loops 

Index  indicating  which  type  of  output  is  desired. 
If  0,  a  complete  summary  of  hull  scantlings  is 
provided.  If  1,  only  the  hull  weight  and  hull 
section  modulus  is  provided  for  each  case  of 
transverse  and  longitudinal  spacing  and  value  of 
n.  If  2,  only  the  minimum  hull  weight  for  all 
the  iterations  is  provided. 

Molded  depth  of  barge  (ft) 

Depth  of  double  bottom  (in) 

Thickness  of  double  bottom  plate  (in) 

Depth  of  bottom  longitudinal  frame  (in) 

Depth  of  bottom  transverse  girder  (in) 

Depth  of  side  longitudinal  frame  (in) 

Depth  of  deck  longitudinal  frame  (in) 

Depth  of  deck  transverse  girder  (in) 

Depth  of  bulkhead  longitudinal  frame  (in) 

See  attached  sheet 
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dkplt:  Thickness  of  deck  plate  (in) 


ef fplatel : 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  of 

bottom  longitudinals  (ft) 

ef fplate2: 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  of 

bottom  transverses 

(ft) 

effplate3: 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  of 

side 

longitudinals 

(ft) 

effplate4: 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  of 

side 

transverses  (ft) 

effplate5: 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  of 

deck 

longitudinals 

(ft) 

ef fplate6 : 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  of 

deck 

transverses  (ft) 

effplate7: 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  of  bulkhead  longitudinals 

(ft) 

ef  fplate8 : 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  of 

bulkhead 

transverses  (ft) 

ef  fplate9 : 

Effective  plate  width 

to 

be 

used  in 

section 

modulus  calculation  < 

of 

double 

bottom 

longitudinals  (ft) 

fact: 

ABS  factor  used  in 

hull 

section 

modulus 

calculations 


fbest:  Optimum  flange  depth  of  member  (in) 


flanthl : 

Thickness 
( in) 

of 

flange 

of 

bottom 

longitudinal 

fr  ame 

flanth2: 

Thickness 
( in) 

of 

flange 

of 

bottom 

transverse 

girder 

flanth3: 

Thickness 

(in) 

of 

flange 

of 

side 

longitudinal 

fr  ame 

flanthA: 

Thickness 

(in) 

of 

flange 

of  side 

transverse 

girder 

flanth5: 

Thickness 

(in) 

of 

flange 

of 

deck 

longitudinal 

fr  ame 
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flanth6 : 


Thickness  of  flange  of  deck  transverse  girder 
(in) 


flanth7:  Thickness  of  flange  of  bulkhead  longitudinal 

frame  (in) 

flanth8:  Thickness  of  flange  of  bulkhead  transverse  girder 

(in) 

flanth9:  Thickness  of  flange  of  double  bottom  longitudinal 

frame  (in) 

flanwil:  Depth  of  flange  of  bottom  longitudinal  frame  (in) 

flanwi2:  Depth  of  flange  of  bottom  transverse  girder  (in) 

flanwi3*.  Depth  of  flange  of  side  longitudinal  frame  (in) 

flanwi4:  Depth  of  flange  of  side  transverse  girder  (in) 

flanwi5:  Depth  of  flange  of  deck  longitudinal  frame  (in) 

flanwi6:  Depth  of  flange  of  deck  transverse  girder  (in) 

flanwi7:  Depth  of  flange  of  bulkhead  longitudinal  frame 

(in) 


flanwi8:  Depth  of  flange  of  bulkhead  transverse  girder 

(in) 

flanwi9:  Depth  of  flange  of  double  bottom  longitudinal 

frame  (in) 

ftwt :  Weight  per  longitudinal  foot  of  midship  section 

(lb/ ft) 

gtype :  Index  used  to  indicate  in  smact2  type  of  trans¬ 

verse  girder  for  which  section  modulus  is  being 
calculated  (1 — bottom;  2 — side;  3 — deck; 

4~bulkhead). 

hi:  Head  to  be  used  for  bottom  longitudinal  frame/ 

transverse  girder  section  modulus  calculation 
(ft) 

h2:  Head  to  be  used  for  side  and  longitudinal  bulk¬ 

head  longitudinal  frame/ transverse  girder  section 
modulus  calculation  (ft) 
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h3:  Head  to  be  used  for  deck  longitudinal  frame/ 

transverse  girder  section  modulus  calculation 
(ft) 

h5:  Head  to  be  used  for  double  bottom  longitudinal 

frame  section  modulus  calculation  (ft) 

i:  Index  used  in  do  loops 

ihc :  Index  used  to  indicate  if  deck/bottom 

longitudinal  and  transverse  section  modulus  cal¬ 
culation  is  being  made  for  the  first  time  (ihc=0) 
or  is  called  for  by  statements  in  hull  section 
modulus  calculation  (ihc=1)  which  results  from 
bottom/deck  plate  increases 

incrlonspac:  Longitudinal  spacing  increment  used  in  do  loops 

incrxvrspac:  Transverse  spacing  increment  used  in  do  loops 

inertia:  Moment  of  inertia  of  longitudinal  midsection  area 

kl,  k2,  k3:  Coefficients  used  in  calculation  of  astan 

1:  Length  between  perpendiculars  of  barge  (ft) 

12:  Unsupported  span  of  deck  and  bottom  transverse 

girders  (ft) 

14:  Unsupported  span  of  side  and  bulkhead  transverse 

girders  (ft) 

longarea:  Sectional  area  of  longitudinals  and  plates  in 

midship  cross-section  (sq  in) 

longwt :  Weight  per  foot  for  longitudinals  and  plates  in 

midship  cross-section  (lbs/ foot) 

lonspac:  Spacing  between  longitudinals  (ft) 

maxlonspac:  Maximum  longitudinal  spacing  to  be  considered  in 
the  run  (ft) 

maxn:  Upper  bound  of  iterative  loop  for  n 

maxxvrspac:  Maximum  transverse  spacing  to  be  considered  in 
the  run  (ft) 

minn:  Lower  bound  of  iterative  loop  for  n 

minlonspac:  Minimum  longitudinal  spacing  to  be  considered  in 
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the  run  (ft) 


minwt :  The  minimum  hull  weight  calculated  for  all 

variations  in  longitudinal  and  transverse  spacing 
and  value  of  n  (LT) 

minxvrspac:  Minimum  transverse  spacing  to  be  considered  in 

the  run  (ft) 

modbot:  Calculated  section  modulus  to  bottom  plate  (hull 

girder  section  modulus) 

modbottemp:  Temporary  storage  variable  for  bottom  section 
modulus  used  in  reducing  iterations  of  n  values 

moddk:  Calculated  section  modulus  to  deck  plate  (hull 

girder  section  modulus) 

moddktemp:  Temporary  storage  variable  for  deck  section 

modulus  used  in  reducing  interations  of  n  values 

raodvall:  Calculated  section  modulus  of  bottom  longitudinal 

frame 

modval2:  Calculated  section  modulus  of  bottom  transverse 

girder 

modval3:  Calculated  section  modulus  of  side  longitudinal 

fr  ame 

modval4:  Calculated  section  modulus  of  side  transverse 

girder 

modval5:  Calculated  section  modulus  of  deck  longitudinal 

fr  ame 

modval6:  Calculated  section  modulus  of  deck  transverse 

girder 

modval7:  Calculated  section  modulus  of  bulkhead 

longitudinal  frame 

modval8:  Calculated  section  modulus  of  bulkhead  transverse 

girder 

modval9:  Calculated  section  modulus  of  double  bottom 

longitudinal  frame 

ntrbkd:  Number  of  transverses  between  transverse 

bulkheads 
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n:  Index  used  to  indicate  how  many  1/16's  inch 

deckplate  may  exceed  bottom  plate  in  hull  section 
modulus  calculations 

opt:  Index  used  to  indicate  which  longitudinal  section 

option  is  being  considered.  If  opt=0  then 
deck/bottom  transverse  span  is  limited  to  less 
than  15*.  If  opt=1,  then  transverse  span  is 
increased  by  reducing  number  of  stanchions  by  two 
in  transverse  cross-section.  If  opt=2  then  two 
longitudinal  bulkheads  are  used,  with  no 
stanchions.  If  opt=3  then  opt=Q  applies  but  with 
double  bottom. 


scanlim:  Switch  to  indicate  scantlings  limit  reached  in 

smactl  or  smact2  (scanlim  =  1  if  scantling  limits 
exceeded  to  obtain  required  section  modulus) . 


secmodl : 

Required 

frame 

section 

modulus  of  bottom 

longitudinal 

secmod2: 

Required 

girder 

section 

modulus  of  bottom 

transverse 

secmod3: 

Required 
fr  ame 

section 

modulus  of  side 

longitudinal 

secmod4: 

Required 

er 

section 

modulus  of  side  transverse  gird- 

secmod5: 

Required 
fr  ame 

section 

modulus  of  deck 

longitud inal 

secmod6 : 

Required 

er 

section 

modulus  of  deck  transverse  gird- 

secmod7: 

Required 
fr  ame 

section 

modulus  of  bulkhead 

longitudinal 

secmod8 : 

Required 

girder 

section 

modulus  of  bulkhead 

transverse 

secmod9 : 

Required 

section  modulus  of  double  bottom 

longitudinal  frame 

siddbgirdth:  Thickness  of  double  bottom  side  girders  (in) 

sidplt:  Thickness  of  side  shell  plating  (in) 

sigm_a:  Sum  of  longitudinal  member  (longitudinal  frames 

and  plates)  cross-sectional  areas  ( sq  in) 
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sigma_ay : 

sigma_ay2: 

sigma_io : 

smbest : 
smreq: 
stans : 


t : 

tfbest : 
twbest : 
wbest : 
webdepl : 

webdep2: 

webdep3: 

webdep4: 

webdepS: 

webdep6: 

webdep7: 

we  bdep8: 

webdep9 : 

webth  1 : 


Sum  of  first  vertical  moments  about  baseline 
( ft- in2  ) 

Sum  of  second  vertical  moments  about  baseline 
(ft- in)2 

Sum  of  longitudinal  member  individual  inertias 
about  their  respective  center  of  gravity  (in^) 

Optimum  section  modulus  of  member 

Required  hull  girder  section  modulus 

The  number  of  stanchions  used  in  supporting  a 
deck/bottom  transverse  girder 

Loaded  draft  of  barge  (ft) 

Optimum  flange  thickness  of  member  (in) 

Optimum  web  thickness  of  member  (in) 

Optimum  web  depth  of  member  (in) 

Depth  of  the  web  of  bottom  longitudinal  frame 
(in) 

Depth  of  the  web  of  bottom  transverse  girder  (in) 

Depth  of  the  web  of  side  longitudinal  frame  (in) 

Depth  of  the  web  of  side  transverse  girder  (in) 

Depth  of  the  web  of  deck  longitudinal  frame  (in) 

Depth  of  the  web  of  deck  transverse  girder  (in) 

Depth  of  the  web  of  bulkhead  longitudinal  frame 

(in) 

depth  of  the  web  of  bulkhead  transverse  girder 
(in) 

Depth  of  the  web  of  double  bottom  longitudinal 
frame  (in) 

Thickness  of  the  web  of  bottom  longitudinal  frame 
(in) 
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webth2:  Thickness  of  the  web  of  bottom  transverse  girder 

( in) 

webth3:  Thickness  of  the  web  of  side  longitudinal  frame 

( in) 

webth^:  Thickness  of  the  web  of  side  transverse  girder 

(in) 

webth5:  Thickness  of  the  web  of  deck  longitudinal  frame 

(in) 

webth6:  Thickness  of  the  web  of  deck  transverse  girder 

(in) 

webth7 :  Thickness  of  the  web  of  bulkhead  longitudinal 

frame  (in) 

webth8:  Thickness  of  the  web  of  bulkhead  transverse  gird¬ 

er  (in) 

webth9:  Thickness  of  the  web  of  double  bottom 

longitudinal  frame  (in) 

weight:  Estimated  hull  steel  weight  of  barge  (LT) 

wtstan:  Weight  per  stanchion  (lbs) 

xvrsl:  Weight  per  longitudinal  foot  for  bottom  trans¬ 

verse  girders  (lbs/ft) 

xvrs2:  Weight  per  longitudinal  foot  for  side  transverse 

girders  (lbs/ft) 

xvrs3:  Weight  per  longitudinal  foot  for  deck  transverse 

girders  (lbs/ ft) 

xvrs4:  Weight  per  longitudinal  foot  for  bulkhead  trans¬ 

verse  girders  (lbs/ft) 

xvrs5:  Weight  per  longitudinal  foot  for  transverse 

bulkheads  (lbs/ft) 

xvrs6:  Weight  per  longitudinal  foot  for  transverse  bulk¬ 

head  longitudinals  (lbs/ ft) 

xvrs7:  Weight  per  longitudinal  foot  for  stanchions 

(lbs/ ft) 

xvrspac:  Spacing  between  transverse  girders  (ft) 
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DEFINITION  OF  THE  ARRAY  DIMEN 


Dimensions 


Member 


Definition 


(1.1)  Bottom  Plate 

(1.2) 

(1,3) 


12xb 

botplt 

botplt 

24 


(2,1) 

(2,2) 

(2,3) 


(3.1) 

(3.2) 

(3.3) 


(4.1) 

(4.2) 

(4.3) 


Bottom  Longitudinal  Web 


webthlxb 

lonspac 

webdepl 

botplt+webdepl 

_ 2 

12 


Bottom  Longitudinal  Flange  flanwil  x  b 

lonspac 

flanthl 


botplt+webdepl+f lanthl 

_ 2 

12 


Side  Plate 

II  II 

II  It 


2  x  sidplt 

12  x  d 

d 

2 


(5.1) 

(5.2) 

(5.3) 


Side  Longitudinal  Web 

It  II  II 

II  II  II 


webdep3x2xd 

lonspac 

webth3 

d 

2 


(6,1) 

(6,2) 

(6,3) 


Side  Longitudinal  Flange 

If  If  ll 

II  It  II 


334 


f Ianth3x2xd 
lonspac 

flanwi3 

d 

2 


Dimensions 


Deck  Plate 


Member 


12xb 

dkplt 


Definition 


(7.1) 

(7.2) 

(7.3) 

(8,1) 


(8,2) 

(8,3) 


(9.1) 

(9.2) 

(9.3) 


(10,1) 

(10,2) 

(10,3) 


If  »l 

VI  II 

Deck  Longitudinal 

II  II 

II  II 

Deck  Longitudinal  Flange 

II  II 

II  II 

Bulkhead  Plate 

n  ii 

it  ii 


d-dkplt 

24 

webthSxb 

lonspac 

webdepS 

d- (dkplt+webdep5 ) 

_ 2 

12 

flanwiSxb 

longspac 

flanth5 

d-dkplt +webdep5+flanth5 

_ _ 2 

12 

bhdplt 

12xd  -  dbdep 

d  +dbdep 
2  24 


(11,1) 

(11,2) 

(11,3) 


Bulkhead  Longitudinal  Web  webdep7x (d-dbdep) 

_ 12 

lonspac 

"  "  "  webth7 

"  "  "  d  +dbdep 

2  24 


(12,1) 

(12,2) 

(12,3) 


Bulkhead  Longitudinal 
Flange 


II 


flanth7xd 

lonspac 


II 
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flanwi7 

d  +dbdep 
2  24 


Dimensions 


Member 


Definition 


(13.1) 

(13.2) 

(13.3) 


(14.1) 

(14.2) 

(14.3) 


(15.1) 

(15.2) 

(15.3) 


(16,1) 

(16,2) 

(16,3) 


Double  Bottom  Plate 

II  II  II 

II  II  It 

Double  Bottom  Longitudinal 
Web 

II  II  II 

II  II  It 

Double  Bottom  Longitudinal 
Flange 

II  II  II 

It  II  II 

Double  Bottom  Center  And 
Side  Girders 

II  II  II 

II  II  It 


12  x  b 
dbplt 

botplt+dbdep+dbdplt 

_ 2 

12 

webth9xb 

lonspac 

webdep9 

botplt+dbdep-web9 

_ 2 

12 

flanwi9xb 

lonspac 

flanth9 

botplt+dbdep-webdep9 -flanth9 

_ 2 

12 

2xsiddbgirdthx  (ceil(-jg)  -1) 

+  cendbgirdth 
dbdep 

botplt  +  dbdep 

_ 2 

12 


dimen  (i,l)  horizontal  dimension  of  member  i 
dimen  (i, 2)  vertical  dimension  of  member  i 
dimen  (i,3)  •‘•vertical  distance  of  center  of  area  of  member  i 
from  baseline  (bottom  of  bottom  plate) 
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DEFINITION  OF  VARIABLES  USED  IN 
SUBROUTINES  "smactl"  AND  ”smact2" 

af :  Cross  sectional  area  of  flange  ( sq  in) 

am:  Cross  sectional  area  of  member — flange  and  web  ( sq  in) 

ap:  Cross  section  area  of  plate  that  is  considered  effective 

in  section  modulus  calculation  ( sq  in) 

aw:  Cross  sectional  area  of  web  ( sq  in) 

dep:  Subroutine  input  parameter  used  to  specify  longitudinal 
depth  in  associated  transverse  girder  (in) 

f:  Flange  depth  (in) 

im:  Moment  of  inertia  of  member 

p:  Longitudinal  spacing  (in) 

s:  Subroutine  input  parameter  used  to  specify  effective 

width  of  plate  (ft) 

smf:  Section  modulus  of  member  to  the  flange 
smp:' Section  modulus  of  member  to  the  plate 

smr:  Subroutine  input  parameter  used  to  specify  required  sec¬ 
tion  modulus  of  member 

tf :  Flange  thickness  (in)) 

tp :  Subroutine  input  parameter  used  to  specify  plate  thick¬ 
ness  (in) 

tw:  Web  thickness  (in) 
w:  Web  depth  (in) 

yf :  Vertical  distance  from  plate  outer  surface  to  flange  cen¬ 

ter  of  gravity  (in) 

ym :  Vertical  distance  from  plate  outer  surface  to  member  cen¬ 

ter  of  gravity  (in) 

yp :  Vertical  distance  from  plate  outer  surface  to  plate  cen¬ 

ter  of  gravity  (in) 

yw:  Vertical  distance  from  plate  outer  surface  to  web  center 

of  gravity  (in) 
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APPENDIX  C 


DOCUMENTATION  FOR  THE  BARGE  POWERING  MODEL 
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^bt<2.0^ 

or 

bt>3. 25?> 


BT  value  out  of 
extrapolable  range; 
processing  will 
continue"  _ 


-339- 


-340 


-341- 


Subroutine  Propfactors 


rcb=14. 999999 


rlb=14. 999999 


output ; 

"CB  valve  out 
of  interpolable] 
an  _ 

) 


iprop=l 

("return' 


-345- 


-346- 


m 


is 


quad 


,  calli  > 

eta (xcb+l,nlb) 
eta (icb+l,nlb+l) 
eta ( icb+1 , nlb+2 ) 
rlbp,ucb 


(  call :  > 

eta (ncb,ilb+l) 

quaaJe*a,(ncJ+i'f^+l> 

M  eta  (ncb+2,ilb+l) 
rcbp,ulb 


etar= (ucb-lcb) * (rcb-icb) +lcb I  I etar= (ulb-llb) * (rlb-ilb) +llb 


-347- 


Subroutine :  Quad 


start 


Definition  of  the  variables involved  in  "quad",  a  subroutine 

for  quadratic  interpolation  and  extrapolation. 

fl:  value  of  ordinate  associated  with  an  abscissa  assumed 

to  be  0. 

f 2 :  value  of  ordinate  associated  with  an  abscissa  assumed 

to  be  1. 

f 3 :  value  of  ordinate  associated  with  an  abscissa  assumed 

to  be  2. 


x:  value  of  abscissa  for  which  quadratic  interpolation/ 

extrapolation  is  desired. 

y:  value  of  ordinate  associated  with  abscissa  x. 


-348 


Subroutine:  resist 


-351- 


/  call ;  > 

jcrp  (l,nfn,ncb,nlb+l) 

auad JcrP  ( 1 ' nf: n+ 1  '  neb ,  n  lb+ 1 ) 
4  jcrp  (l,nfn+2,ncb,nlb+l) 
l  y  /  llu  J 


'  call :  « 

crp (2 ,nfn,ncb,nlb) 
crp (2 ,nfn+l,ncb,nlb) 
crp (2 ,nfn+2 ,ncb ,nlb) 
l  y,ull 


✓  call:  , 

Icrp (2 ,nfn,ncb,nlb+l) 

auad<crp  * 2 ' nf n+1 '  neb , nlb+1) 
4  jerp  (2  ,nfn+2  , neb, nlb+1) 

l  y,ulu  - 


C  call:  % 

Icrp  (2,nfn,ncb+l,nlb+l)  1 
,Jcrp (2/nfn+l,ncb+l,nlb+l)L 
quaalcrp  ( 2 ,  nfn+2 ,  ncb+1 ,  nlb+1 )[ 

I  Y/Uuu  J 

V 

/  . 

cbll= (rcb-ncb) 

*(lul-lll)+lll  | 

/ 

cbul= (rcb-ncb) 

* (luu-llu) +llu 

1 

f 

cblu= (rcb-ncb) 

* (uul-ull) +ull 

1 

s 

/ 

1 

cbuu= (rcb-ncb) 

* (uuu-ulu) +ulu 

1 

.  .  _ ^ 

£ _ _ 

|  lbl= (rlb-nlb) * (cbul-cbll) +cbll 

_ 

£ _ 

lbu= (rlb-nlb) * (cbuu-cblu) +cblu 

> 

£ 

(bt-2. 46 
cres=  0.3 

i-*  (lbu-lbl)  +lbl 

cres  = 

cres 

100000 

' 

L _ 

/  return: 

/ residual  resistance 
[  coefficient 
cres; 
ires. 


-353- 
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1  power  :  procedure!  1  ,b  ,dr  ,c'o  ,v  ,wa  ,th  ,hr  .propef  ,ehp  ,dhp,index,c,d,dt,dq,rc,t,w,eta); 

2  del  (c(39),d(k7),dt(9>,dq(13),rc(2,8,7,8),t<15,15),w!15,15>,eta(15,15))  bin  float; 

3  del  ( 1 ,b ,dr ,eb , v ,wa ,th ,hr ,prope f ,ehp,dhp ,rpra)  bin  float; 

“  del  ( cf  ,cr  ,ot  ,temp,r  ,1b ,bt)  bin  float; 

9  del  ( g ,ro ,gnu,fn , vs, wsa ,rn , exarea ,zb ,pd lam)  bin  float; 

6  del  ( i  , i prop , i res , Index )  fixed  bin; 

7  del  sysprint  file  stream  output;  O 

8  index  s  0; 

9  bt  =  b/dr; 

10  bt  =  round ( bt ,2) ; 

11  if  bt<2. G  !  bt>3. 25  then 

12  put  skip  list("BT  value  out  of  reasonable  extrapolable  range--proeessing  will  continue"); 

13  lb  s  1/b; 

1“  lb  —  round! lb  ,2) ; 

19  vs  =  v«l. 68731; 

16  g  =  32.17«C; 

17  ro  =  1.9909; 

16  gnu  =  1.2791e-5; 

19  fn  =  vs/sqrt(  g"  1) ; 

2C  fn  =  round(fn,3); 

2’  call  propfaetors(cb,lb,wa ,th,hr ,iprop) ; 

22  if  fn>s3.20  then  wa  =  (wa-0. 02)/0. 98; 

23  if  fn>3.16  &  fn<0.20  then  wa  =  wa  +  (fn-0. 16)*(wa-1 .0)/1 .96; 

2“  if  iprop  z  1  then  do; 

29  index  si; 

26  return; 

17  end; 

26  call  resi st(cb ,1b ,bt,fn ,cr , ires) ; 

29  if  ires  =  1  then  do; 

30  index  s  1; 

31  return; 

3?  end; 

32  pdiam=3. 636*dr ; 

3“  zo  =  “.0; 

39  wsa  s  1.81*l*dr  +  cb"l*b; 

36  rn  =  vs* 1/gnu; 

37  of  =  0.079/((log10(rn)-2.0e0)*»2); 

26  do  i  s  1  to  90; 

39  temp  =  ef; 

t3  of  =  (t. 132e0»log10(rn»of))**-2; 

91  if  abs(temp  -  of)  <  9.0e-7  then  go  to  next; 

o2  end; 

“3  put  skip  listCCF  algorithm  does  not  converge"); 

“a  index  -  1; 
t5  next: 

96  ct  =  cr  +  cf  +  O.GGOt; 

“7  r  =  3 . 9 *ro*wsa* vs* *2 *ct ; 
aS  ehp  =  r*vs/990.0; 

a9  ex  areas ( 1 . 3  •»  0 . 3»zb ) * (550. *ehp/ vs) /( (2080 . 8  ♦  6«. 0«23*( pdiam/2  ♦  3.0))»pdiam»»2)  ♦  0.2; 

90  call  prop(  zb  , exarea  ,pdiam  , ehp  ,v  ,th  ,wa  , hr  ,dhp  ,rpm  .propef) ; 

91  return; 

propfao tors :  procedure! cb,lb ,wa ,th ,hr , iprop) ; 

93  del  ( cb ,1b ,wa ,th ,hr ,wp ,tp ,etar ,rcb , r 1 b , r cbp , r 1  bp , 1 cb , ueb , 1 1 b , ul b)  bin  float; 

9u  del  ( iprop , icb , lib , nob , nib)  bin  fixed; 

99  iprop=0; 

96  if  cbs0.8k  then  rcb=1 a . 999999 ;  else  robs (cb-0. 77 )*200. 0  +  1.0; 

97  if  lb=7 . 6  then  rlbsia. 999999;  else  ribs ( lb-6. 2)*1 0. 0  ♦  1.0; 

96  iebs floor ( rcb) ; 

99  ilb=  floor  (  rib) ; 

60  if  cb<0. 75  1  cb>0 . 85  then  do; 

P 


.2  COMPUTER  PROGRAM  LISTING  OF  THE  BARGE  POWERING  MODEL 
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61  put  skip  list("CB  value  out  o f  lnterpolable  range"); 

62  put  data(cb); 

63  i prop= 1; 

6“  return; 

65  end; 

66  if  lb<6 . 0  1  lb>8.0  then  do; 

£7  put  skip  list("LB  value  out  of  lnterpolable  range"); 

63  put  data(lb); 

69  iprop=1; 

79  return; 

71  end; 

7?  if  ( icb<2  |  icb>1k)  4  (ilb<1  i  ilb> 1 « )  then  do; 

73  /*  put  skip  list("LB  and  CB  both  out  table  ranges");  */ 

7«  iprop:1; 

75  /*  put  skip  data(lb,cb);  */ 

76  return; 

77  end; 

73  if  <icb>0  &  icb<15)  4  (ilb>0  6  ilb<15)  then  do; 

79  lcb:(rlb-ilb)*(w(icb,ilb+1)-w(ieb,ilb))  +  w(icb,ilb); 

89  ucb: (rlb-ilb) *( w( icb+1 , ilb+1 )-w( ieb+1 , ilb) )  +  w( iob+1 ,ilb) ; 

81  up: ( rcb-icb) *(ucb-lcb)  +  lcb; 

6?  lob= (rlb-ilb)*( t( icb.ilb+1 )-t(ieb,ilb) )  ♦  t(iob,ilb); 

83  ucb= (rlb-ilb)»(t( icbel , < lb+1  )-t( icb*1 ,ilb)  )  +  t(iob+1 , lib) ; 

6-i  tp:  ( rcb-icb)  *(ucb-lcb)  +  lob; 

35  lob= (rlb-ilb)*(eta( icb,ilb+1  )-eta( icb, lib) )  ♦  eta( leb, ilb) ; 

66  ucb= (rib- ilb) *(eta( iob+1 , ilb+1 )-eta( ieb+1 , ilb) )  +  etaC lob+i , ilb) ; 

£7  etar: ( rcb-icb) •( ucb-lcb)  +  lcb; 

S3  go  to  compl ; 

S9  end; 

93  if  icb<1  then  do; 

91  rcbpircb-1 .0; 

9?  neb:  1 ; 

S3  go  to  quadl; 

9“  end; 

95  if  icb>1“  then  do; 


96 

rcbp:rcb-1  3.  6 

57 

ncb:1 3; 

93 

go  to  quadl; 

59 

end ; 

ICO  if 

i  1 b< 1  then  do; 

131 

rlbprrl b-1 . 0; 

102 

nib:  1 ; 

103 

go  to  quad2; 

'  OS 

end; 

1 G5  if  i 1 b> 1 u  then  do; 

166  rlbp:rlb-1 3. 0; 

’67  nlb= 13; 

106  go  to  quad?; 

139  end; 

113  quad?: 

111  call  quad  (  w(  icb ,  nib),  w(  icb ,nlb+1 ) , w(  icb  ,nlb+2 )  ,rlbp,lcb) ; 

112  call  quad(w(icb+1,nlb),w(icb+1,nlb+1),w(icb+1 ,nlb+2 ) ,rlbp,ucb) ; 

113  up= (ucb-lcb)*<rcb-icb)  ♦  lcb; 

11"  call  quad ( t(  icb , nib)  ,t{  icb , n  1  b-t- 1  )  ,t(  icb ,nlb+2 )  ,rlbp,lcb) ; 

115  call  quad  ( t( icbel  ,  nib),  t(icb+1,nlb-f1),t(  icb+1  ,  nlb+2)  ,rlbp,ucb)  ; 

116  tp: (ucb-lcb) * (rcb-icb)  ♦  lcb; 

117  call  quad (etadeb, nib), eta(icb,nlb»1), eta  (icb, nlb+2), rlbp,lcb); 

118  call  quad (eta(icb+1, nib), eta(icb+1,nlb+1),eta(icb+1  , nlb+2) ,  rlbp.ucb) ; 

119  etar:(ucb-lcb)"(rcb-icb)  ♦  lcb; 

120  go  to  compl; 
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1 2 1  quad  1 ; 

122  call  quad( w(ncb ,ilb) ,ut neb* 1 , ilb) ,w( ncb+2, ilb) , rebp, lib) ; 

123  call  quad ( w( neb , llb+1 ) ,w( ncb+1 , ilb+1 ) ,w( ncb+2 , llb+1  ),rcbp,ulb); 

12b  wpi(ulb-llb)*(rlb-ilb)  +  lib; 

125  call  quad( ttneb , lib) ,t( ncb+1 , lib) ,t (ncb+2, tlb) ,rcbp, lib) ; 

126  call  quadtttncb,  llb+ 1 ) ,t(  ncb+1 ,  ilb+1 ) ,t( ncb+2 , ilb+1 ) ,rcbp,ulb) ; 

127  tp=(ulb-llb)*(rlb-ilb)  ♦  lib; 

123  call  quad( eta( neb ,ilb) ,eta( ncb+1 , ilb) ,eta( ncb+2, lib) ,rcbp, lib) ; 

123  call  quad(eta(ncb,ilb+1),etatncb+1,ilb+1),eta( ncb+2, ilb+1 ) ,rcbp,ulb) ; 

1 30  etar=(ulb-llb)»(rlb-ilb)  +  lib; 

131  core  pi: 

132  wa=1.C-wp/ 1000.0; 

123  tn=1.C-tp/1 000.0; 

13“  hr=etar/10Q0.0; 

135  return; 

136  end  propraetors:  _ __ 

137  quai  :  procedurel  t i,  f  2,  f  3,  x  ,y  i ; 

1 3S  del  tf1,f2,f3,y,x  ,x1  ,x2,x3>  bln  float; 

133  xlrl.C  +  ( x-3. G)*x/2. 0; 

1“G  x2  =  t x-2 . 0)*  x; 

1  “  1  x3=( x-1 . 0)*x/2. 0; 

’-2  y  =  f  1  *  x  1  -  f  2*x2  +  f 3*x3 ; 

1«3  return; 


,uul ,uuu,ulu,y)  float  bin; 
1“7  del  ( rcb ,rlb ,rfn  ,cbll  ,cbul  ,cblu,cbuu  ,lbu,lbl )  float  bln; 

’“8  del  t  ires ,  icb ,  ilb  ,ifn  , nib  ,ncb  ,nfn  ,1  ,j  ,k  ,m)  fixed  bln; 

1 “ 9  ires  =  0; 

150  if  cb=1.635  then  rcb=6 . 999999;  else  rcb= (cb-0. 775)*100. 0  +  1.0; 

151  if  l-b=7.6  then  rlb=7. 999999;  else  rlb=  ( lb-6. 2)*5. 0  +  1.0; 

152  if  fn  =  Q. 22  then  rfn=8 . 999999 ;  else  rfn=(fn-0. 1b)»100.0  ♦  1.0; 

153  icb= floort rcb) ; 

15“  i 1 b= floor ( rib) ; 

155  ifnrfloor(rfn) ; 

156  do  i= 1  to  2; 

1o7  do  x=1  to  7; 

153  oo  msl  to  8; 

159  do  j  =  3  to  9; 

160  crpt i , j ,k ,m)  =  rc ( i ,j-1 ,k  ,m) ; 

1 61  end ; 

162  cr p( i , 1 ,k ,m)-rc ( 1 , 1  ,k  ,m) ; 

’63  crpt  i  ,  2,  k  ,m)  =  0. 5»(  crpt  i  ,  1  ,k  ,n>)  +  crpt i , 3,k ,m) ) ; 

16“  end;  end;  end; 

165  if  i fn>8  then  do; 

166  put  skip  listC'FH  value  out  of  range"); 

167  put  skip  data(fn,v); 

166  iresil; 

169  return; 

170  end; 

171  if  ifn>0  then  do; 

172  if  ((rfn-ifn)<0.5  4  tlfn>1))  !  tifn=8)  then  nfnsifn-1; 

173  else  nfn=ifn; 

17“  y=rfn-nfn; 

175  end; 

176  else  do; 

177  nfnsl; 

178  y=  rfn-1 . 0; 

179  end; 

160  if t icb>0  4  icb<7)  4  tilb>0  4  ilb<8)  then  do; 


““endquadj _ _ 

“5  resist:  procedure^  cb  ,1b  ,bt  ,fn  ,cre3  ,  Ires) ; 

-6  acl  t cb  ,1b  ,bt ,fn ,crp(2, 9, 7, 8) ,cres ,111 ,llu,lul ,luu,ul 
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131  ncb=icb; 

182  nlb=ilb; 

183  end; 

lb1*  if  (lcb<1)  then  do; 
l£S  ncb=1  ; 

136  nlb=ilb; 

167  end; 

163  if  (icb>6)  then  do; 

169  ncb=6; 

19-1  nlb=ilb; 

191  end; 

192  if  (ilb<1)  then  do; 

193  nlb=  1 ; 

19u  if  ncb"=1  1  ncb'=6  then  neb  =  icb; 

195  end; 

196  if  (ilb>7)  then  do;, 

197  nlb  =  7 ; 

193  if  ncb*=1  i  ncb'=6  then  neb  =  lob; 

199  end; 

209  call  quad  (crpil.nfn.ncb.nlbi.crpO.nfn-i-l,  neb,  nib),  crp(  1  ,nfn+2 ,  neb,  nib)  ,y  ,  111) ; 

20’  call  quad(crp(1lnfn,ncb,nlb+1)lcrp(1,nfn+1,ncb,nlb+1),orp(1,nfn+21ncb,nlb+1)Iy,llu); 

202  call  quad(crp(1,nfn,ncb+lInlb),crp(1,nfn+1,ncb+1,nlb),crp(1,nfn+2,ncb+1,nlb),y,lul); 

203  call  quad(crp(1,nfn,ncb-t-1,n)6+1),crp(1,nfn+1,neb+1,nlb+1),crp(1  ,nfn+2,ncb+1 , nlb+1  )  ,y ,luu) ; 
20u  call  quad(crp(2,nfn,ncb,nlb) ,crp(2,nfn+1 , nob , nib) ,crp(2,nfn+2,ncb,nlb) ,y ,ul 1) ; 

205  call  quad(crp(2,nfn,ncb,nlb+1),crp(2,nfn+1,ncb,nlb+1) ,orp(2Infn+2,neb ,nlb+l > ,y ,ulu) ; 

206  call  quad(crp(2,nfn,ncb+l,nlb) ,crp(2,nfn+1 ,ncb+1 ,nlb) ,crp(2 ,nfn+2 ,nob+1 ,nlb) ,y ,uul) ; 

207  call  quad(crp(2,nfn,ncb+1, nlb+1)  ,crp(2,nfn+1 , ncb+1 ,  nlb+1  )  ,crp(2,nfn+2,ncb+l , nlb+1  )  ,y  ,uuu) ; 

208  cbll=(rcb-ncb)«(lul-lll)  +  111; 

209  ebul  = (rcb-ncb)*( luu-llu)  +  llu; 

210  cbiu= (reb-neb) *(uul-ull)  +  ull; 

211  cbuu= (reb-neb) *(uuu-ulu)  +  ulu; 

212  lbl  = (rlb-nlb)*(cbul-cbll)  +  cbll; 

213  lou= (rlb-nlb)* ( cbuu-cblu)  +  cblu; 

2’“  cres=((bt-2.«6)/0.3>*(lbu-lbl)  +  lbl; 

216  cres=cres*1 .e-5; 

216  return; 

2'7  end  resist; 

21q  prop:  proccdur e(  zb  ,x  ,om  ,hp  , v r  , th  , wa  ,hr  ,dhp  ,r pm  ,prope f ) ; 

219  del  (  f1,f2,f  3,f11,f5,f6,f7,f8If9,f  10,f  11,f  12,f  13,f  1«,f  15,g1  ,g2,g3, 

220  guig5,g61g7.g9,g101g11>g12,g13,g111,g15,g16>g17,g18,g19,tb1Itb2, 

221  tb3 ,  tb11 ,  tb5 ,  qb  1 ,  qb2 , qb3 , qb« , qb5 , qb6 , qb7 , tg 1 ,  tg2 ,  tg3 ,  tg“ , qgl  ,qg2,qg3, 

222  qgU,qg5>x,y,fff,oni,hp1vr,th,wa,hr,rk,tq1ltq2,tq3,tq11,tq5,tq6ttq7,epst 

22  3  fr  1  ,fr2,fr 3 ,fr# ,fr5,fr6,fr7 ,fr8 ,gr1 ,gr2 ,gr3 , y  1  ,y2,ym  , 

22  “  gr«1gr5,gr6,gr7,gr8,th1,th2,th3,th1i,th5,qh  1 ,  qh2,qh3,qh11,qh5>dhp,rpi» , 

225  zb  ,z ,  z  1 , z2,  zm  ,t  ,q  ,td  ,qd  ,tf  ,qf  .propef  ,aa ,bb,cc  ,for  ,rn  ,con ,re)  bin  float; 

226  del  f( 1 00 )  bin  float; 

227  del  ( k, 11 )  fixed  bin; 

223  eps=0.C001; 

229  re  = 1 . 21 7 *1 0. * *7 ; 

230  f  1=c(l  )  +  c(8)«zb+c(12)*x»zb+c(18)»x»»2+c<29>,,zb»«2+c(36)»x»zb««2; 

231  f3=c(7>*x+c(«)+c(28)*x»*2»zb; 

2  32  f«  =  c(23)*zb+c(111  )+c( 26  )*x* zb+c(  37  )*x*  zb*1,2+c(  39  *2*zb**2 ; 

233  f  2  =  c( 3 )  +  c( 1 0 ) *zb ; 

23U  f 5=e( 15); 

235  f6=c(2)+c(13)*x»zb+c(27)*x»»2»zb+c(30)*zb»*2; 

236  f7=c(6)*x+c(ll)*zb; 

237  f8=c( 33 )*zb**2 ; 

233  f9=o(2«)*zb; 

239  f10=c(21)«x»»2+c(311)*zb»*2; 

2«0  f 1 1 =c(5 )*x+c(9)*zb+o(1 9 )*x« *2+o(31  )»zb»*2; 
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241  f  1?  =  c<  16Uc<?2)»x»»2*c<35)»zb»*.7; 

2“2  M3=c(17)»x*c<20)»x»»2+c<32)»zb«»2; 

2-?  f14=c(25)*zb; 

?««  f ’5=c<33)*zb"»2»x; 

?“5  g’.  =d(  )*d(19)»x»*2+d(«3)*x**2»zb»*2j 

2“6  g2=d(5)*x+d( 1 0)*zb+d{ 22)‘ x**2 ; 

2“1  g3=d( 3  )*x+d(4  )+d(  15>»x»zb*d< 33  )*x»»2»zb+d(4 1  )«x*zb»»2; 

248  g4=d(17)*x+d(25)*x»*2+d<44)«x**2«zb»»2; 

?“9  g5=d( 26  )*x**2+d(29)*zb+d(  3 1  )*x*zb+d(  35  )*x**2*zb+d(42),lx*zb»*2+d(46) 

250  *x*  *2  *zb*  *2 ; 

25!  g6=d(  9  )*zb+d<(  20)*x**2+d(  32)*x**2*zb+<l(  39)*x*zb**2; 

252  g7=d(3)+d<6)«x+d<11)»zb+d(14)4x*zb+d(36)»zb»»2; 

253  g9=d(!8)*x; 

254  g!0:d(-7)*x**2*zb**2; 

255  g11=d(2)  +  d(13)‘x*  zb+d(1t0)*x*zb*,2; 

256  g12=d(7)*x+d(12)*zb; 

257  gl3=d(2«)*x*»2; 

258  g'u=d(3")*x*«2*zb; 

259  g!5=d( 16  )*x+d(21  )*  x**2+d(27  )*zb+d(  30)»x*zb; 

260  g!6=d( 23  )*x*»2; 

26!  g 1 7  =  d ( 37 )*zb**2; 

262  g!8=d(28)*zb+d(#5)*zb**2*x*»2; 

263  g!9=d(38)*zb»*2; 

264  tb1sdt(3)*x; 

265  tb2=dt(8)*zb*x; 

266  tb3=dt(9)*zb**2»x; 

267  tb« =dt (2  ) ‘x ; 

268  tb5  =  dt(7  )*zb*x+dt(4)*x; 

269  qb1=dq(1)«dq(4)*x**2; 

270  qb2=dq(12)»x*»2; 

27’.  qb 3  =dq(  1  3  )*  x* *2 ; 

272  qbu=dq(10)«zb; 

273  qb5=dq( 1 1 )*zb; 

21“  qb6=dq( 9  )*zb*x; 

275  qb7=dq(3  )*zb*x; 

276  f ff=log10(re)-. 301 ; 

277  tgl =tb1*tb2»ffr; 

273  tg2=tb3  *ff f  ; 

279  tg3=tb4+tb5*fff**2; 

230  tgb=dt(5)»fff 

22 1  qg! =qbl+qb2»fff 

282  qg2=dq(2)tdq(5)*fff ; 

225  qg3  =dq(  6  )*  f  f  f 

26“  qgU=  qb«*fff 

285  qg5=qb6*fff»«2; 

286  qh  3  =  qb7  *f f f ; 

267  th 1 =dt( 1  )j 

233  rk=5.24491hp/((1.-«a)*»2*(1 .-th)*(om*.30«8)»*2*vr»*3)i 

289  y 1=0. 60; 

293  y  2s! . 40 ; 

29!  y=yi ; 

292  ks!; 

293  K811:  call  grend(  for , z ) ; 

2ri“  f(k)  =  for; 

2^5  k s ^  * 

296  if  k<3  then  go  to  N809; 

297  if  k>3  then  go  to  N840; 

293  else  go  to  N810; 

299  11809:  ym=  ( y  Hy 2)«  .  5; 

300  if  abs(  yl-y2X  =  eps*ym  then  do; 


+dt(6)»fff»»2; 

♦qb3*fff*»2; 

♦dq(7)»fff»*2; 

♦qb5  *f f f **2  +dq(3)*zb; 
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301 

302 
303 
30“ 

305 

306 

307 

308 

309 

310 

311 

312 

313 
3’“ 

315 

316 

317 
31  8 

319 

320 

321 

322 

323 
32“ 

325 

326 

327 

328 

329 

330 

331 

332 

333 
33“ 

335 

336 
3  37 

338 

339 
3“0 
3“1 
3“2 
3“3 

ji..* 

3“5 
3“6 
3“7 
3“  3 
3“9 

350 

351 

352 

353 
35“ 

355 

356 

357 

358 

359 

360 


go  to  zeld; 

end; 

y=yn; 

go  to  N81 1 ; 

N810:  bb=r<  1 ) ; 

N8“0:  ll=k-1; 
oc-f(ll)i 

if  bb*cc<0.e0  then  y2=ym; 

else  if  bb*ce=G.eO  then  do; 

y  =  yo; 

go  to  zeld; 

end; 

else  do; 

yi-y®; 

bb=cc; 

end; 

go  to  N809; 

zeld:  t=  fr1+z»fr2+z»»2*fr3+z**3*fr“; 

qsgrl +z*gr2+z**2*gr3+z*,3*gr“ ; 
td  =  thUz*th2+th3*z**2; 
qdeqh  l+z*qh2+z**2*qh3; 
tf=t+td ; 
qf=q+qd; 

propef=z*tf/(6.283185308*qf); 
rpm:30. 9*vr*( 1 . -wa) /( z*ora* . 30 “8 ); 
dhp=hp* ( 1 . -wa)/( propef* ( 1 . -th) *hr ) ; 
grend  :  procedure!  for  ,z) ; 

del  (for,z)  bin  float; 
rn=2.  ; 

fr 1 =  f 1+y*  f2+y**2»f 3+y*‘6*f5+y**3*f “; 

fr2  =  f6+y*f7+y**2,f8+y,*3*f9  +  f  10“y**6; 

fr3=f !1+y**6*fl2; 

fr“=f13+f1“*y,*3+f15*y**6; 

f  .-5  =  f2+2 .  *y*  f 3+6. *  y*  *5  *f 5+3  .*y*,2*f“; 

f  r6  =  f  7+2 .  *y*  f3+3 .  *  y**2*f9+6  .  *y**5*f  10; 

fr7=6.*y‘*5»fl2; 

fr8=6.*f 15*y*»5+3.»f1«*y»*2; 

gr  1  =g1  +y*  g2+y*»2,g3+y*  *3*g“  +y**6*g5  ; 

gr2=g6  +  y»g7  +g9 »y‘ *3 +g1 0*y* »6 ; 

gr3=g11+g12»y+g13«y*»2+g1“»y»»3; 

gr“=g’5+gl6*y+g17*y**2+g19*y*»6+y«»3*g18; 

gr5=g2+2.«y»g3+3.*y*»2*g“+6.*y*«5*g5; 

gr6  =g7  +3 . *g9  *y**2+6 .*gl 0*y**5 ; 

gr7=g12+2.«gl3»y+3.*gl“*y‘*2; 

gr8=g16+?.*g17*y+3.*g18*y,*2+6.*g19*y**5; 

th2=y*tg1+y»»3*tg2; 

th3=tg3+  y**6*tg“; 

th  “  =  tg  1  +3 . *  y*  *2  *tg2 ; 

tn5=6 . *  y*  *5*tg“ ; 

qh  1 =qgl  +y*qg2+y**2*qg3+y**6*qg“  ; 
qh2=qg5*y; 

qh“=qg2+2. *y*qg3+6 . •y**5*qg“ ; 

qh5=qg5; 

con=rk ; 

tq 1  =fr5*(  rn+1 .)*(gr1+qh1)-rn*( fr 1 +thl )*( gr5+qh“) ; 

tq2= (rn+1 . ) *(gr 1+qhl )*( fr6+th“ )+ (gr2+qh2) * fr5 *rn+ (gr5+qh# ) *( 1 . -rn) 
•(  fr2+th2)-(gr6+qh5)«  rn  »(fr1+th1); 
tq3=fr5*(rn-1.)*(gr3+qh3)+(fr6+th“)*(gr2+qh2)*rn+ (fr7+th5)»(rn+1 . ) 
•(grl +qh 1 )♦  (gr5+qh“)l,(2.  -rn)  * C  fr  3+th3)+(gr6+qh5)*(  1 . -rn)  *(  fr2+th2) 
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361  -gr7*rn*  (  fr  1  +  th.l ) ; 

362  tq“=fr5*(rn-2. )  *gr“+(  fr7  +  th5)*(gr2+qh2)*m*(  fr6+th“)*(rn-1 . )  *(gr3+ 

363  qh3)+fr8*(  rn+1 . )  *( grl +qh  1 )  +  (gr5+qh“)*(  3,  -rn)  *fr“+(gr6+qh5)*(2. -rn) 

36“  *(fr3+th3)+gr7*(1 . -rn) »< fr2+th2)-gr8*rn* ( frl +th1 ) ; 

366  tq5=( fr6+th“)*( rn-2. )*gr“+( fr7+th5)*(rn-1 . )  *(  gr3+qh3)+fr8*(gr2+qh2) 

366  *rn+  (gr6+qh5)*  (3.  -rn)  *fr“4gr7*(2.  -rn)  *(  fr  3»th3)+gi"8*(  1 .  -rn)  *(  fr2*th2); 

367  tq6i( fr7+th5)*(rn-2. ) *gr“+fr8*(rn-1 . ) *( gr3+qh3)+gr7*(3-  -rn) •frU+grB 

363  »(2.-rn)»(fr3+th3); 

369  tq7=fr8*(rn-2. ) *gr“+gr8*( 3. -rn)*fr# ; 

370  zl-.OI; 

371  z2=y+.1; 

372  aa=fr1+thH(fr2+th2)*z1  +  (fr34th3)*z1**2+fr«* 

373  z1*»3-con»z1**2; 

37“  N801:  zm=(z1+z2)*.5; 

375  ccrfr1+thl4(fr2+th2)*zm+(fr3+th3)*zm*«2+fr4* 

376  zm»*3-con*zm»*2; 

377  if  abs{ z1-z2)<=eps*zm  then  go  to  N805; 

378  if  aa*oc=0.e0  then  go  to  N805; 

379  if  aa*cc<0.e0  then  z2:zm; 

380  else  do; 

381  z1=zm; 

382  aa=cc; 

383  end; 

36“  go  to  N801; 

385  N805 :  z=zra; 

366  for  = (tq 1+z* tq2+z**2*tq3+z**3*tq“4z**“*tq5+z**5*tq6+z,*6*tq7) 

367  *con*z**2/(( gr 1 +qh 1+(gr2+qh2)*z+(qh 3+gr3 )*z**2+gr4 *z**3 )**2*( fr2 

366  ♦th2*2.  *(  fr  3+th3)*z+3.*fr*t*z**2  -rn*con»z)); 

365  return; 

390  end  grend; 

391  end  prop; 

392  end  power; 
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-r.p 

parameter 
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bin( 27) 

dq 
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bin(27) 

'it 

parameter 

float 

bin( 27) 

enp 

parameter 

float 

bin(27 ) 
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00031“  automatic 

float 
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parameter 

float 

bin(27 ) 

etar 

000102  automatic 

float 

bin(?7) 

exarea 

000117  automatic 

float 

bin(27 ) 

f 

000373  automatic 

float 

bin(27) 

f  ? 

00021“  automatic 

float 

bin(27) 
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parameter 

float 

bin(27) 

no 

000225  automatic 

float 

bin(27) 

000226  automatic 

float 

bin(27) 

000227  automatic 

float 

bin(27) 

m 

000230  automatic 

float 

bin(27) 

r  i  ^ 

000231  automatic 

float 

bin(27) 
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ATTRIBUTES  AND  REFERENCES 


del  219  set  ref  372  378  379  382 

del  3  ref  1  9  13  35 

del  219  set  ref  306  309  310  316 

del  1“6  ref  1“5  21“ 

del  it  set  ref  9  10  10  11  11  28 

array  del  2  ref  1  230  230  230  230  230  230  231 

231  231  232  232  232  232  232  233  233  23“  235  235 

235  235  236  236  237  238  239  239  2«0  2“0  2“0  2“0 

2“1  2U1  3112  2U2  2“2  2“3  2““ 

del  1“6  ref  1“5  150  150 

del  53  ref  52  56  56  60  60  62 

del  3  set  ref  1  21  28  35 

del  1“7  set  ref  208  212  212 

del  1“7  set  ref  210  213  213 

del  1«7  set  ref  209  212 

del  1“7  set  ref  211  213 

del  219  set  ref  308  309  310  316  375  378  379  382 

del  A  set  ref  37  39  “0  #0  M  “5 

del  219  set  ref  355  372  375  386  386 

del  “  set  ref  28  #5 

del  1“6  set  ref  1“5  21“  215  215 

array  del  1“6  set  ref  160  162  163  163  163  200 

200  200  201  201  201  202  202  202  203  203  203  20“ 

20“  20“  205  205  205  206  206  206  207  207  207 

del  it  set  ref  “5  H7 

array  del  2  rer  1  2“5  2“5  2“5  2“6  2“6  2“6  2“7 

2U7  2 tt7  2“7  2“ 7  218  2“8  268  2“9  2“9  2“9  2“9  2“9 

2“9  251  251  251  251  252  252  252  252  252  253  25“ 

255  255  255  256  256  257  258  -259  259  259  259  260 

261  262  262  263 

del  3  set  ref  1  50 

del  219  set  ref  213  327 

array  del  2  ref  1  269  269  270  271  272  273  27“ 
275  282  282  283  283  28“ 
del  3  ref  .  1  9  33  “5 

array  del  2  ref  1  26“  265  266  267  268  268  280 
280  287 

del  3  set  ref  1  #8  “9  50 
del  219  set  ref  228  300  377 

array  del  2  set  ref  1  85  85  85  86  86  86  117  117 

117  118  118  118  128  128  128  129  129  129 

del  53  set  ref  87  119  130  13“ 

del  5  set  ref  “9  50 

array  del  226  set  ref  29#  306  308 

del  219  set  ref  230  331 

del  138  ref  137  1“2 

del  219  set  ref  239  332  336 

del  219  set  ref  2«0  333 

del  219  set  ref  2“1  333  337 

del  219  set  ref  2“2  33“ 

del  219  set  ref  2“3  33“  338 


f  15 

00023?  automatic 

float  bln(?7) 

f  2 

parameter 

float  bin(?7) 

f  2 

000215  automatic 

float  bin(27) 

ri 

000216  automatic 

float  bln(27) 

f  3 

parameter 

float  bin(27) 

f* 

000217  automatic 

float  bin(?7) 

f  5 

000220  automatic 

float  bin(27) 

f  6 

000221  automatic 

float  bin(27) 

a 

000222  automatic 

float  bln(27) 

fa 

000223  automatic 

float  bin(27) 

f  9 

00022*  automatic 

float  bln(27) 

fff 

000303  automatic 

float  bin (27) 

fa 

000113  automatic 

float  bin(27) 

fa 

parameter 

float  bin(27) 

for 

parameter 

float  bln(27> 

for 

000367  automatic 

float  bln(27) 

frl 

000315  automatic 

float  bin(27) 

fr2 

000316  automatic 

float  bin(27) 

fr3 

000317  automatic 

float  bin(27) 

ir  * 

000320  automatic 

float  bin(27) 

fro 

000321  automatic 

float  bin(27) 

fr6 

000322  automatic 

float  bln(27) 

fr7 

000323  automatic 

float  bin(27) 

fr3 

00032*  automatic 

float  bin(27) 

£ 

000110  automatic 

float  bin(?7 ) 

£  • 

000233  automatic 

float  bln(27) 

S'  'J 

0002*3  automatic 

float  bin(27) 

£'  1 

0002**  automatic 

float  bin(27) 

gl  2 

0002*5  automatic 

float  bin(27) 

£’3 

0002*6  automatic 

float  bin(27> 

?’  * 

0002*7  automatic 

float  bin(?7) 

S’5 

000250  automatic 

float  bin(27) 

£’.6 

000251  automatic 

float  bin(27) 

g’7 

000252  automatic 

float  bln(27) 

e’3 

000253  automatic 

float  bin(27) 

£19 

00025*  automatic 

float  bin(27) 

£? 

00023*  automatic 

float  bin<27) 

£1 

000235  automatic 

float  bin<27) 

S'* 

000236  automatic 

float  bin(27> 

£0 

000237  automatic 

float  bin(27) 

£0 

0002*0  automatic 

float  bin(27) 

£7 

0002*1  automatic 

float  bin(27) 

£3 

0002*2  automatic 

float  bin(?7) 

gr.u 

000112  automatic 

float  bin(27) 

grl 

000325  automatic 

float  bin(?7) 

gr? 

000326  automatic 

float  bin(27) 

gr  3 

000327  automatic 

float  bin(?7) 

gr*i 

000333  automatic 

float  bin(27) 

£r5 

00033*  automatic 

float  bin(27) 

gr6 

000335  automatic 

float  bln(27> 

gr7 

000336  automatic 

float  bin(?7 ) 

gr3 

000337  automatic 

float  bin(27) 

hp 

parameter 

float  bin(?7) 

r.r 

parameter 

float  bin(27) 

hr 

parameter 

float  bin(27) 

hr 

parameter 

float  bln(27) 

del  219  set  ref  2##  33*  338 

del  138  ref  137  1*2 

del  219  set  ref  233  331  335 

del  219  set  ref  231  331  335 

del  138  ref  137  1 *2 

del  219  set  ref  232  331  335 

del  219  set  ref  23*  331  335 

del  219  set  ref  235  332 

del  219  set  ref  236  332  336 

del  219  set  ref  237  332  336 

del  219  set  ref  238  332  336 

del  219  set  ref  276  277  278  279  280  280  281  281 

282  283  283  28*  28*  285  286 

del  5  set  ref  19  20  20  22  23  23  23  28 

del  1*6  ref  1*5  152  152  167 

del  329  set  ref  328  386 

del  219  set  ref  293  29* 

del  219  set  ref  319  331  356  357  359  362  372  375 

del  219  set  ref  319  332  357  359  362  365  372  375 

386 

del  219  set  ref  319  333  359  362  365  367  372  375 
386 

del  219  set  ref  319  33*  362  365  367  369  372  375 
386 

del  219  set  ref  335  356  357  359  362 

del  219  set  ref  336  357  359  362  365 

del  219  set  ref  337  359  362  365  367 

del  219  set  ref  338  362  365  367  369 

del  5  set  ref  16  19 

del  219  set  ref  2*5  339 

del  219  set  ref  25*  3*0  3#« 

del  219  set  ref  255  3*1 

del  219  set  ref  256  3*1  3*5 

del  219  set  ref  257  3*1  3*5 

del  219  set  ref  258  3*1  3*5 

del  219  set  ref  259  3*2 

del  219  set  ref  260  3*2  3*6 

del  219  set  ref  261  3*2  3*6 

del  219  set  ref  262  3*2  3*6 

del  219  set  ref  263  3*2  3*6 

del  219  set  ref  2*6  339  3*3 

del  219  set  ref  2*7  339  3*3 

del  219  set  ref  2*8  339  3*3 

del  219  set  ref  2*9  339  3*3 

del  219  set  ref  251  3*0 

del  219  set  ref  252  3*0  3** 

del  219  set  ref  253  3*0  3** 

del  5  set  ref  18  36 

del  219  set  ref  320  339  356  357  359  362  386 

del  219  set  ref  320  3*0  357  359  362  365  386 

del  219  set  ref  320  3*1  359  36?  365  367  386 

del  219  set  ref  320  3*2  362  365  367  369  386 

del  219  set  ref  3*3  356  357  359  362 

del  219  set  ref  3**  357  359  362  365 

del  219  set  ref  3*5  359  362  365  367 

del  219  set  ref  3*6  362  365  367  369 

del  219  ref  218  288  327 

del  219  ref  218  327 

del  53  set  ref  52  13* 

del  3  set  ref  1  21  50 


363 


i 

003110  automatic 

fixed 

bin(17,0) 

del 

1b8  set  ref  156  160  160  162  163  163  163  163 

i 

000133  automatic 

fixed 

bin( 17, 0) 

del 

6  set  ref  38 

icb 

003103  automatic 

fixed 

bin(17,0) 

del 

1 #8  set  ref  153  180  180  181  18b  188  19“  198 

icb 

000113  automatic 

fixed 

bin(17,0) 

del 

5“  set  ref  58  72  72  78  78  79  79  79  80  80  80 

81  82  82  82  83  83  83  8b  85  85  85  86  86  86  87  90 

95  ' 

110  110  110  112  113  112  113  11“  11b  11“  115 

115 

115  116  117  117  117  118  118  118  119 

ifr. 

00310b  automatic 

fixed 

bin( 17, 0) 

del 

1“8  set  ref  155  165  171  172  172  173  172  173 

ilb 

003103  automatic 

fixed 

bin(17,0) 

del 

1 “8  set  ref  15“  180  180  182  186  190  192  156 

iib 

00011“  automatic 

fixed 

bln( 17,0) 

del 

5“  set  ref  59  72  72  78  78  79  79  79  79  80  80 

80  80  82  83  82  82  83  83  83  83  85  85  85  85  86  86 
86  86  100  105  121  131  121  123  123  123  12»  135 

125 

130 

del 

135  126  126  126  127  128  128  128  129  129  129 

index 

parameter 

fixed 

bin(17,0) 

6  set  ref  1  8  25  30  b« 

i  prop 

000133  automatic 

fixed 

bln(17,0> 

del 

6  set  ref  21  2“ 

iprop 

parameter 

fixed 

bln( 17, 0) 

del 

5*  set  ref  52  55  63  69  7“ 

ires 

parameter 

fixed 

bin(17,0) 

del 

1 *8  set  ref  1“5  1“9  168 

ires 

00013b  automatic 

fixed 

bln( 17,0) 

del 

6  set  ref  28  29 

j 

003111  automatic 

fixed 

bin< 17,0) 

del 

1“8  set  ref  159  160  160 

< 

000537  automatic 

fixed 

bin(17,0) 

del 

227  set  ref  292  29“  295  295  296  297  307 

< 

003113  automatic 

fixed 

bin' 17, 0) 

del 

1*8  set  ref  157  160  160  162  162  163  163  163 

’ 

parameter 

float 

bin(37) 

del 

3  ref  1  13  19  35  35  36 

lb 

parameter 

float 

bin{ 37 ) 

del 

53  ref  53  57  57  66  66  68 

lb 

parameter 

float 

bin(37) 

del 

1“6  ref  1“5  151  151 

lo 

000106  automatic 

float 

bin(37) 

del 

b  set  ref  13  1“  1“  21  38 

lcl 

003101  automatic 

float 

bin(37) 

del 

1“7  set  ref  212  21“  21“ 

lb  U 

003100  automatic 

float 

bin(37) 

del 

1“7  set  ref  313  21* 

Icb 

000107  automatic 

float 

bin(37 ) 

del 

53  set  ref  79  81  81  82  8“  8“  85  87  87  110 

113 

113  11“  116  116  117  119  119 

11 

0005b0  automatic 

fixed 

bin( 17,0) 

del 

227  set  ref  307  308 

11b 

000111  automatic 

float 

bin(37 ) 

del 

130 

del 

53  set  ref  121  12“  12“  125  127  127  128  130 

111 

003060  automatic 

float 

bin<37 ) 

1*6  set  ref  200  208  208 

li<j 

003061  automatic 

float 

bin(37) 

del 

1“6  set  ref  201  209  09 

lul 

003063  automatic 

float 

bln(37) 

del 

1“6  set  reT  302  208 

1  uu 

003063  automatic 

float 

bin(37 ) 

del 

1 “6  set  rer  203  209 

m 

0031 13  automatic 

fixed 

bln(17, 0) 

del 

1 “8  set  ref  158  160  160  162  162  163  163  163 

neb 

003106  automatic 

fixed 

bin(17,0) 

del 

1*8  set  ref  181  185  1B9  19“  19“  19“  198  198 

198 

300  300  300  201  201  201  303  203  303  203  303 

203 

30“  30“  20“  205  205  205  206  206  306  2 07  207 

207 

208  309  210  211 

neb 

000115  automatic 

fixed 

bln(17,0) 

del 

5“  set  ref  92  97  121  121  121  123  123  123  125 

nf  n 

125 

125  126  136  126  128  128  138  139  139  129 

003107  automatic 

fixed 

bin( 17, 0) 

del 

1«8  set  ref  172  173  17“  177  200  300  200  201 

301 

201  203  302  202  203  203  203  20“  20“  30“  205 

205 

205  206  206  206  207  207  207 

nib 

003105  automatic 

fixed 

binC 17,0) 

del 

1*8  set  ref  182  186  190  193  197  200  200  200 

301 

201  201  202  202  202  203  203  203  20“  20“  20“ 

000116  automatic 

205 

205  205  206  206  206  207  207  207  212  213 

r.lb 

fixed 

bin( 17, 0) 

del 

5“  set  ref  102  107  110  110  110  112  112  112 

11b 

11#  11“  115  115  115  117  117  117  118  118  118 

OT. 

parameter 

float 

bin(27) 

del 

319  ref  218  288  326 

pbiam 

000131  automatic 

float 

bin<37) 

del 

5  set  ref  33  “9  “9  50 

proper 

parameter 

float 

bin(27) 

del 

3  set  ref  1  50 

propef 

parameter 

float 

bin(27) 

del 

219  set  ref  218  325  327 

i 

000357  automatic 

float 

bin(27) 

del 

219  set  ref  320  32“ 

4b! 

000363  automatic 

float 

bin(37) 

del 

219  set  ref  269  281 

4b3 

000363  automatic 

float 

bln(37) 

del 

219  set  ref  270  281 

i°3 

00036b  automatic 

float 

bln(37) 

del 

219  set  ref  271  281 

qb# 

000265  automatic 

float  bin(27) 

qb5 

000266  automatic 

float  bin(27) 

qbo 

000267  automatic 

float  bin(27 ) 

qb7 

000270  automatic 

float  bin(27) 

qd 

000361  automatic 

float  b in ( 27 ) 

qf 

000363  automatic 

float  bin(27) 

qsi 

000275  automatic 

float  bin(27) 

562 

000276  automatic 

float  bln(27) 

u3 

000277  automatic 

float  bin(27) 

000300  automatic 

float  bin(27) 

;g5 

000301  automatic 

float  bln(27> 

qhl 

0003#5  automatic 

float  bin<27) 

qh2 

0003#6  automatic 

float  bln(27 ) 

q.".3 

0003#7  automatic 

float  bin(27) 

qh# 

000350  automatic 

float  bin(27) 

;«5 

000351  automatic 

float  bin(27) 

r 

000105  automatic 

float  bin(27) 

re 

parameter 

float  bin(27> 

reb 

000103  automatic 

float  bln(27) 

r:b 

002071  automatic 

float  bin(27 ) 

rcep 

000105  automatic 

float  bin(27) 

re 

000372  automatic 

float  bln(27) 

rfn 

002073  automatic 

float  bin(27) 

rk 

00030#  automatic 

float  bln(27 ) 

rib 

00010#  automatic 

float  bln(27) 

rib 

002072  automatic 

float  bin(27) 

rlbp 

000106  automatic 

float  bln(27) 

rn 

000370  automatic 

float  bin(27) 

u> 


rn 

000116  automatic 

float  bin(27) 

ro 

000111  automatic 

float  bin(27) 

rpm 

parameter 

float  bin(27) 

rpn* 

000100  automatic 

float  bin(27> 

syspr int 

000016  constant 

file 

t 

parameter 

float  bln(27) 

t 

000356  automatic 

float  bin(27) 

to’ 

000255  automatic 

float  bln(27) 

tij2 

000256  automatic 

float  bln(27) 

tb3 

000257  automatic 

float  bin<27> 

tbH 

000260  automatic 

float  bin(27> 

000261  automatic 

float  bin<27) 

Vj 

000360  automatic 

float  bin (27) 

temp 

00010#  automatic 

float  bin(27) 

tf 

000362  automatic 

float  bin(27 ) 

tgl 

000271  automatic 

float  bln(?7> 

tg? 

000272  automatic 

float  bin(27) 

000273  automatic 

float  bin(27) 

tsu 

00027#  automatic 

float  bin(27) 

th 

parameter 

float  bin(27 ) 

th 

parameter 

float  bin(27 ) 

tn 

parameter 

float  bin(27) 

th  1 

0003#0  automatic 

float  bln(27) 

th2 

0003# 1  automatic 

float  bln(27 ) 

del  319  set  ref  372  28# 

del  219  set  ref  277  28" 

del  219  set  ref  27#  285 

del  219  set  ref  275  286 

del  219  set  ref  322  32# 

del  219  set  ref  32#  325 

del  219  set  ref  281  351 

del  219  set  ref  282  351  353 

del  219  set  ref  283  351  353 

del  219  set  ref  28#  351  357 

del  219  set  ref  285  352  35# 

del  219  set  ref  322  351  356  357  359  362  386 

del  219  set  ref  322  352  357  359  362  365  386 

del  219  set  ref  286  322  359  362  365  367  386 

del  219  set  ref  353  356  357  359  362 

del  219  set  ref  35#  357  359  362  365 

del  #  set  ref  #7  #8 

array  del  2  ref  1  160  162 

del  53  set  ref  56  56  58  81  8#  87  91  96  113  116 
119 

del  1«7  set  ref  150  150  153  208  209  210  211 
del  53  set  ref  91  96  121  123  125  126  128  129 
del  219  set  ref  22 9  276 
del  1#7  set  ref  152  152  155  172  17#  178 
del  219  set  ref  288  355 

del  53  set  ref  57  57  59  79  80  82  83  85  86  101 
106  12#  127  130 

del  1#7  set  ref  151  151  15#  212  213 
del  53  set  ref  101  106  110  112  11#  115  117  118 
del  219  set  ref  330  356  356  357  357  357  357  359 

359  359  359  359  359  362  362  362  362  362  362  362 

362  365  365  365  365  365  365  367  367  367  367  369 

369  386 

del  5  set  ref  36  37  #0 
del  5  set  ref  17  #7 
del  219  set  ref  218  32t 
del  3  set  ref  50 

output  stream  del  7  set  ref  711  #3  61  62  67  68 
166  167 

array  del  2  set  ref  1  82  82  82  83  83  83  11#  11# 

11#  115  115  115  125  125  125  126  126  126 

del  219  set  ref  319  323 

del  219  set  ref  26#  277 

del  219  set  ref  265  277 

del  219  set  ref  266  278 

del  219  set  ref  267  279 

del  219  set  ref  268  279 

del  219  set  ref  321  323 

del  #  set  rer  39  #1 

del  219  set  ref  323  325 

del  219  set  ref  277  3#7  3#9 

del  219  set  ref  278  3«7  3#9 

del  219  set  ref  279  3#8 

del  219  set  ref  280  3#8  350 

del  3  set  ref  1  21  50 

del  219  ref  218  288  327  • 

del  53  set  ref  52  133 

del  219  set  ref  287  321  356  357  359  362  372  375 
del  219  set  ref  321  3#7  357  359  362  365  372  375 
386 


365 


th3 

0003*2  automatic 

float  bln(27) 

del 

219 

set 

ref 

321 

348 

359 

362 

365 

367 

372 

375 

386 

tha 

0003*3  automatic 

float  bln(?7) 

del 

219 

set 

ref 

349 

357 

359 

362 

365 

th5 

0003*4  automatic 

float  bin(27) 

del 

219 

set 

ref 

350 

359 

362 

365 

367 

tp 

000101  automatic 

float  bin(27) 

del 

53  set  ref  84  116  127  133 

tql 

000305  automatic 

float  bin(27) 

del 

219 

set 

ref 

356 

386 

X.'i? 

000306  automatic 

float  b  ln(  27  ) 

del 

219 

set 

ref 

357 

386 

tq3 

000307  automatic 

float  bin(?7) 

del 

219 

set 

ref 

359 

386 

000310  automatic 

float  bin(27) 

del 

219 

set 

ref 

362 

386 

^5 

000311  automatic 

float  bin(27) 

del 

219 

set 

ref 

365 

386 

tq6 

000312  automatic 

float  bin(27) 

del 

219 

set 

ref 

367 

386 

000313  automatic 

float  bin(27) 

del 

219 

set 

ref 

369 

386 

ucb 

000110  automatic 

float  bin(27) 

del 

53  set  ref  80  81 

1  83 

84  86  87  112  113  115  116 

118 

119 

u  lb 

000112  automatic 

float  bin(27) 

del 

53  set  ref  ' 

123  1 

124  126  127  1 

129  130 

ull 

002064  automatic 

float  bin (27) 

del 

146 

set 

ref 

204 

210 

210 

ul  u 

002067  automatic 

float  b  in( 27  ) 

del 

146 

set 

ref 

205 

211 

211 

uul 

002065  automatic 

float  bin(27) 

del 

146 

set 

ref 

206 

210 

litiu 

002066  automatic 

float  bin(27) 

del 

146 

set 

ref 

207 

211 

V 

parameter 

float  bin(27) 

del 

3  set  ref  1 

15  50  167 

vr 

parameter 

float  bin(27) 

del 

219 

ref 

218 

288 

326 

7  S 

0001 14  automatic 

float  bin(27) 

del 

5  set  ref  15  19 

36  U7  «8  «9 

w 

parameter 

float  bin(27) 

array  del  2 

set 

ref 

1 79  79 

79  80  80 

1  80 

no 

110 

110 

112 

112 

112 

121 

121 

121 

123 

123 

123 

wa 

parameter 

float  bln(27) 

del 

219 

ref 

218 

288 

326 

327 

wa 

parameter 

float  bin(27) 

del 

3  set  ref  1 

21  22  22  23 

23  23  50 

wa 

parameter 

float  bin(27) 

del 

53  set  ref  52  131 

wp 

000100  automatic 

float  bin(27) 

del 

53  set  ref  81  113  124  131 

wsa 

000115  automatic 

float  bin(27) 

del 

5  set  ref  35  47 

X 

parameter 

float  bin(27) 

del 

138 

ref 

137 

139 

139 

140 

140 

141 

141 

X 

parameter 

float  bin<27) 

del 

219 

ref 

218 

230 

230 

230 

231 

231 

232 

23  2 

2  32 

235 

235 

236 

239 

240 

240 

241 

24? 

24? 

2411 

24S 

?4S 

246 

246 

247 

247 

247 

2«7 

248 

248 

248 

249 

249 

249 

249 

249 

251 

251 

251 

252 

252 

253 

254 

2*5S 

255 

2S6 

257 

268 

259 

259 

259 

26P 

->62 

264 

265 

266 

267 

268 

268 

269 

270 

271 

274 

275 

X1 

000100  automatic 

float  bin<27) 

del 

138 

set 

ref 

139 

142 

X? 

000101  automatic 

float  bin(27) 

del 

1  38 

set 

ref 

140 

142 

x'3 

000102  automatic 

float  bin( 27 ) 

del 

138 

set 

ref 

141 

142 

y 

parameter 

float  bin( 27 ) 

del 

138 

set 

ref 

137 

142 

y 

000302  automatic 

float  bin(27) 

del 

219 

set 

ref 

291 

301 

30« 

311 

331 

331 

331 

331 

332 

332 

332 

332 

333 

33« 

334 

335 

335 

335 

336 

336 

336 

337 

338 

338 

339 

339 

339 

339 

340 

340 

3“0 

341 

341 

341 

34? 

34? 

34? 

34? 

343 

343 

343 

344 

344 

345 

345 

346 

346 

346 

347 

347 

3“8 

349 

350 

351 

351 

351 

352 

353 

353 

371 

j 

002070  automatic 

float  bln(27) 

del 

1  46 

set 

ref 

174 

178 

200 

201 

202 

203 

204 

205 

206 

207 

y  ■ 

000330  automatic 

float  bin( 27 ) 

del 

219 

set 

ref 

289 

291 

299 

300 

315 

y? 

000331  automatic 

float  bin(27) 

del 

219 

set 

ref 

290 

299 

300 

309 

ym 

000332  automatic 

float  bln(27) 

del 

219 

set 

ref 

299 

300 

301 

304 

309 

311 

315 

z 

parameter 

float  bin(27) 

del 

329 

set 

ref 

328 

385 

386 

386 

386 

386 

386 

386 

386 

386 

386 

386 

386 

386 

386 

z 

000352  automatic 

float  bin(27) 

del 

219 

set 

ref 

293 

319 

319 

319 

320 

320 

320 

321 

321 

322 

322 

325 

326 

zl 

000353  automatic 

float  bin(27) 

del 

219 

set 

ref 

370 

372 

372 

372 

372 

37« 

377 

381 

z  2 

000354  automatic 

float  bln<27) 

del 

219 

set 

ref 

371 

374 

377 

379 

zb 

parameter 

float  bln(27) 

del 

219 

ref 

218 

230 

230 

230 

230 

231 

232 

232 

232 

232 

233 

235 

235 

235 

236 

237 

238 

239 

240 

240 

241 

242 

243 

244 

245 

246 

247 

247 

247 

248 

249 

249 

249 

OJ 

Oh 

cn 


2«9 

249 

251 

251  251 

252 

252 

252 

25“ 

255 

255 

256 

258 

259 

259 

261  262 

262 

263 

265 

266 

268 

272 

273 

274 

275 

28“ 

ZD 

000120 

automatic 

float  bin(27) 

del 

5  set  ref  34  49 

50 

zm 

000355 

automatic 

float  bin<27> 

del 

219 

set 

ref  37“ 

375 

375 

375 

375 

377 

379 

381 

385 

NAM  FS 

DECLARED  BY  EXPLICIT  CONTEXT. 

lie'/. 

0066#3 

constant 

label 

del 

37“ 

ref 

374  384 

N  c  Z  5 

006731 

constant 

label 

del 

385 

ref 

377  378 

385 

N  c  v  3 

005177 

constant 

1  abel 

del 

299 

ref 

296  299 

318 

No1  j 

005221 

constant 

label 

del 

306 

ref 

298  306 

N  A 1  \ 

005164 

constant 

label 

del 

293 

ref 

293  305 

005223 

constant 

label 

del 

307 

ref 

297  307 

CO^lpl 

002444 

constant 

label 

del 

131 

ref 

88  120 

131 

greed 

00537“ 

constant 

entry 

next 

000601 

constant 

label 

paw  s  r 

000251 

constant 

entry 

prop 

004072 

constant 

entry 

prepfaotors 

000703 

constant 

entry 

quad 

002464 

constant 

entry 

quad  1 

002062 

constant 

label 

quad? 

001470 

constant 

label 

resist 

002525 

constant 

entry 

zeld 

005250 

constant 

label 

internal  del  328  ref  293  328 
del  45  ref  41  “5 
external  del  1  ref  1 
internal  del  218  ref  50  218 
Internal  del  52  ref  21  52 

internal  del  137  ref  110  112  114  115  117  118  121 
123  125  126  128  129  137  200  201  202  203  20“  205 
206  207 

del  121  ref  93  98  121 
del  1 10  ref  103  108  1 10 
internal  del  145  ref  28  1*5 
del  319  ref  302  312  319 


NAMES  DECLARED  BY  CONTEXT  OB  IMPLICATION. 

abs 
f  Icor 
log  IS 
r„„r,d 
sqrt 


Z~:-H  AGE  REQUIREMENTS  FOR  THIS  PROCRAM. 


builtin 

function 

internal 

ref 

“1 

300 

i  377 

builtin 

function 

internal 

ref 

58 

59 

153  154  155 

builtin 

function 

internal 

ref 

37 

40 

276 

builtin 

function 

internal 

ref 

10 

14 

20 

builtin 

function 

internal 

ref 

19 

Object 

Text 

Link 

Symbol 

Defs 

Static 

Start 

0 

0 

7200 

7222 

7101 

7210 

Ler.g  th 

14450 

7101 

22 

5212 

76 

2 

iLOCK  N 

jiit 

STACK 

SIZE  TYPE 

WHY  NONQUICK/WHO  SHARES  STACK  FRAHE 

pswer 

509  external 

procedure 

is  an  external  procedure. 

prspfac 

tors 

146  internal 

procedure 

uses  1/0  statements. 

69  internal 

procedure 

is  called  by  several  nonquick  procedures. 

resist 

1167  internal 

procedure 

uses  1/0  statements. 

prop 

internal 

procedure 

shares  stack  frame  of  external  procedure  power. 

greno' 

internal 

procedure 

shares  stack  frame  of  external  procedure  power. 

THE  F CL 

LOWING  EXTERNAL  OPERATORS  ARE  USED  BY  THIS 

i  PROGRAM. 

f  x  *  to 

f  1 7 

r  1  a 

r_g_a 

r_e_as  r_ne_as  call_ext_out 

call  int  this 

call  int  other 

return 

fl2  to  fxl  ext  entry  int  entry 

put_end 

stream 

io 

floor  fl 

round_?l  putdata  eis  put_list_eis 

r  eal_to 

_real  rd 

sqrt 

log  10 

real  p  real 

THE  FOLLOWING  EXTERNAL  ENTRIES  ARE  CALLED  BY  THIS  PROGRAM, 
dee  imai_exp_ 


THE  FOLLOWING  EXTERNAL  VARIABLES  ARE  USED  BY  THIS  PROGRAM, 
sysprint  sysprint.fsb 


C.  3  DICTIONARY  OF  VARIABLES  USED  IN  THE  BARGE  POWERING  MODEL 


DEFINITION  OF  THE  VARIABLES  USED  IN  SUBROUTINE  "power” 


Definition  (units) 

Barge  Molded  Breadth. 

B/T.  Ratio  of  barge  molded  breadth  to  barge 
draft . 

An  array  of  values  used  as  coefficients  in 
Subroutine  "prop". 

Cb.  Barge  block  coefficient. 

Frictional  Resistance  Coefficient. 

Residual  Resistance  Coefficient. 

Total  Resistance  Coefficient. 

d:  An  array  of  values  used  as  coefficients  in 

Subroutine  "prop". 

dhp:  Delivered  Horsepower.  Horsepower  required  to  be 

delivered  to  the  propeller  to  provide  the  effec¬ 
tive  horsepower  needed  to  propel  barge  at  the 
specified  speed. 

dq:  An  array  of  values  used  as  coefficients  in 

Subroutine  "prop". 

dr:  Barge  Summer  Waterline  Draft. 

dt:  An  array  of  values  used  as  coefficients  in 

Subroutine  "prop". 

ehp:  Effective  horsepower  required  to  be  delivered  by 

the  propeller  to  drive  the  barge  at  the  specified 
speed. 

eta:  Array  of  values  of  relative  rotative  efficiency 

coefficients  used  as  input  into  Subroutine 
"propfactors" . 


Variable 

b: 

bt : 

c : 

cb : 
cf : 
cr : 
ct : 
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ex  area : 

Propeller  Expanded 

Area  Ratio. 

(sq  in) 

fn: 

Froude  Number. 

g: 

Acceleration  Due  to 

Gravity,  (ft/sec  ) 

gnu: 

Kinematic  Velocity. 

hr : 

Relative  rotative 
specified  form. 

efficiency 

Output 

for  hull  of 

of  Subroutine 

"propfactors"  and  input  into  Subroutine  "prop". 

i:  Index  counter  used  in  frictional  resistance 

routine . 


index : 


iprop: 


ires : 


1: 

lb: 


pdiam: 
propef : 


rc : 


r 


Subprogram  "power"  Error  Index.  Index  that 
indicates  whether  calls  to  subroutines 
"propfactors"  and  "resist"  have  not  been  success¬ 
ful  or  that  the  frictional  resistance  routine 
does  not  converge  (index=0  indicates  success  of 
Subroutine  "power",  index=1  indicates  some  error 
in  the  execution) . 

Subroutine  "propfactors"  Error  Index.  Index  that 
indicates  to  Subroutine  "power"  that  some  error 
occurred  during  the  execution  of  Subroutine 
"propfactors".  (iprop=Q  indicates  no  error; 
iprop=1  indicates  error.) 

Subroutine  "resist"  Error  Index.  Index  that 
indicates  to  Subroutine  "power"  that  some  error 
occurred  during  the  execution  of  Subroutine 
"resist".  ( ires=0  indicates  no  error;  ires=1 
indicates  error.) 

Barge  Length  Between  Perpindiculars. 

L/B.  Ratio  of  barge  length  to  barge  molded 
breadth . 

Diameter  of  Propeller,  (ft) 

Propeller  Open  Water  Propulsive  Efficiency.  Out¬ 
put  of  Subroutine  "prop". 

An  array  of  values  of  residual  resistance 
coefficients,  used  as  input  into  Subroutine 
"resist" . 

Barge  Resistance.  Total  still  water  resistance 
developed  by  barge. 
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rn : 


Reynold’s  Number. 
Density  of  Sea  Water. 


ro : 

rpm:  RPM.  Revolutions  per  minute  of  propeller  at 

specified  speed. 

sysprint:  Output  Switch  Name. 

t:  Array  of  values  of  thrust  deduction  fraction  used 

as  input  into  Subroutine  ’’propfactors" . 

temp:  Temporary  holding  variable  used  in  routine  to 

calculate  frictional  resistance  coefficient. 

th:  Thrust  deduction  fraction  for  hull  of  specified 

form.  Output  of  Subroutine  "propfactors”  and  in¬ 
put  into  Subroutine  "prop". 

v:  Speed  of  Barge,  (kts) 

vs:  Speed  of  Barge,  (ft/sec) 

w:  Array  of  values  of  wake  fraction  used  as  input 

into  Subroutine  "propfactors". 

wa :  Wake  fraction  for  hull  of  specified  form.  Output 

of  Subroutine  "propfactors"  and  input  into 
Subroutine  "prop". 

wsa:  Barge  Wetted  Surface  Area. 

zb:  Number  of  Blades  on  Propeller. 
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DEFINITION  OF  THE  VARIABLES  USED  IN  SUBROUTINE  "propfactors" 


Variable 
cb: 
etar : 

hr : 

icb: 


ilb : 


iprop : 


lb: 

lcb : 


Definition 


Cb .  Barge  block  coefficient. 

Relative  rotative  efficiency  for  the  specific 
barge  form  under  consideration,  multiplied  by  one 
thousand . 

Relative  rotative  efficiency  for  the  specific 
barge  form  under  consideration. 

Index  used  in  the  propulsion  coefficient  arrays 
indicating  the  first  of  two  values  with  respect 
to  cb  that  are  used  as  inputs  into  the  linear  and 
quadratic  interpolation  routines  for  lb 
interpolation . 

Index  used  in  the  propulsion  coefficient  arrays 
indicating  the  first  of  two  values  with  respect 
to  lb  that  are  used  as  inputs  into  the  linear  and 
quadratic  interpolation  routines  for  cb 
interpolat  ion . 

Error  Index.  Index  used  to  indicate  whether  lb 
or  cb  inputs  are  out  of  propulsion  coefficient 
table  ranges;  (iprop=1  indicates  inputs  out  of 
range;  iprop=0  indicates  inputs  satisfactory). 

L/B.  Ratio  of  barge  length  to  barge  molded 
breadth . 

The  linear  or  quadratic  interpolated  value  with 
respect  to  lb  for  the  lower  of  two  cb  values. 


lib: 


The  quadratic  interpolated  value  with  respect  to 
cb  for  the  lower  of  two  lb  values. 
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neb:  Index  used  in  propulsion  coefficient  arrays 

indicating  the  first  of  three  cb  table  values 
that  are  inputted  into  the  cb  quadratic  interpo¬ 
lation  routine  for  a  given  lb  value  (ilb). 

nib:  Index  used  in  propulsion  coefficient  arrays 

indicating  the  first  of  three  lb  table  values 
that  are  inputted  into  the  lb  quadratic  interpo¬ 
lation  routine  for  a  given  cb  value  (icb). 

rcb:  cb  index  value  for  which  table  interpolation  is 

desired . 

rebp:  Fractional  part  of  cb  index  value  for  which  table 

interpolation  is  desired  and  which  is  inputed  in¬ 
to  the  cb  quadratic  interpolation  routines. 

rib:  lb  index  value  for  which  table  interpolation  is 

desired . 

rlbp:  Fractional  part  of  lb  index  value  for  which  table 

interpolation  is  desired  and  which  is  inputted 
into  the  lb  quadratic  interpolation  routines. 

th:  Thrust  deduction  fraction  for  the  specific  barge 

form  under  consideration. 


tp : 

ueb : 

ulb : 

wa : 

wp : 


One  thousand  times  one  minus  the  thrust  deduction 
fraction  for  the  specific  barge  form  under 
consideration . 

The  linear  or  quadratic  interpolated  value  with 
respect  to  lb  for  the  upper  of  two  cb  values. 

The  quadratic  interpolated  value  with  respect  to 
cb  for  the  upper  of  two  lb  values. 

The  wake  fraction  for  the  specific  barge  form  un¬ 
der  consideration. 

One  thousand  times  one  minus  the  wake  fraction 
for  the  specific  barge  form  under  consideration. 
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DEFINITION  OF  THE  VARIABLES  USED  IN  SUBROUTINE  " resist" 


Variable 


Definition 


bt : 
cb : 
cbll : 

cblu : 

cbul : 

cbuu : 

ores : 

crp: 

fn: 
i : 

icb: 

ifn: 

ilb : 


B/T.  Ratio  of  barge  breadth  to  barge  draft. 
Cb .  Barge  block  coefficient. 


Value  of  linear  interpolation  between  two  cb  in¬ 
dex  values  for  the  first  of  two  lb  index  values, 
where  bt  =  2.46. 

Value  of  linear  interpolation  between  two  cb  in¬ 
dex  values  for  the  first  of  two  lb  index  values, 
where  bt  =  2.76. 

Value  of  linear  interpolation  between  two  cb  in¬ 
dex  values  for  the  second  of  two  lb  index  values, 
where  bt  =  2.46. 


Value  of  linear  interpolation  between  two  cb  in¬ 
dex  values  for  the  second  of  two  lb  index  values, 
where  bt  =  2.76. 


Residual  resistance  coefficient  found  from  the 
interpolation  of  the  residual  resistance  table. 

Array  of  residual  resistance  coefficients  used 
for  table  interpolation.  This  array  is  identical 
to  the  input  array  rc  except  that  0. 15  Froud  num¬ 
ber  value  is  assumed  to  be  linearly  interpolated 
between  the  0.14  and  0.16  Froude  number  values. 

Froude  Number. 

The  bt  index  of  the  residual  resistance  array. 

The  integral  part  of  the  cb  index  value  for  which 
interpolation  is  desired. 

The  integral  part  of  the  fn  index  value  for  which 
interpolation  is  desired. 

The  integral  part  of  the  lb  index  value  for  which 
interpolation  is  desired. 
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ires : 

j  : 

k: 

lb: 

lbl : 

lbu: 

111: 

llu: 

lul: 

luu : 

m : 

neb : 

nfn : 

nib : 


Index  that  indicates  whether  lb,  cb,  or  fn  inputs 
are  out  of  table  interpolation  ranges  (ires=1 
indicates  inputs  are  out  of  range;  ires=0 
indicates  inputs  satisfactory). 

The  Froude  number  (fn)  index  of  the  residual  re¬ 
sistance  coefficient  array. 

The  cb  index  of  the  residual  resistance  coeffi¬ 
cient  array. 

L/B.  Ratio  of  barge  length  to  barge  molded 
breadth . 

Value  of  the  linear  interpolation  between  cbul 
and  cbll,  the  two  lb  values,  where  bt  s  2.46. 

Value  of  the  linear  interpolation  between  ebuu 
and  cblu,  the  two  lb  values,  where  bt  =  2.76. 

The  quadratically  interpolated  value  with  respect 
to  fn  for  the  first  of  two  cb  values  and  the 
first  of  two  lb  values,  where  bt  =  2.46. 

The  quadratically  interpolated  value  with  respect 
to  fn  for  the  first  of  two  cb  values  and  the  sec¬ 
ond  of  two  lb  values,  where  bt  =  2.46. 

The  quadratically  interpolated  value  with  respect 
to  fn  for  the  second  of  two  cb  values  and  the 
first  of  two  lb  values,  where  bt  =  2.46. 

The  quadratically  interpolated  value  with  respect 
to  fn  for  the  second  of  two  cb  values  and  the 
second  of  two  lb  values,  where  bt  =  2.46. 

The  lb  index  of  the  residual  resistance  coeffi¬ 
cient  array. 

The  cb  index  for  the  first  of  two  table  index 
values  that  bracket  the  index  of  the  desired  cb 
value . 

The  fn  index  for  the  first  of  three  table  index 
values  that  bracket  the  index  of  the  desired  fn 
v  al  ue . 

The  lb  index  for  the  first  of  two  table  index 
values  that  bracket  the  index  of  the  desired  lb 
value . 
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rcb : 
rfn : 
rib : 
ull : 

ulu : 

uul : 

uuu : 

y : 


The  cb  index  for  the  desired  cb  value. 

The  fn  index  for  the  desired  fn  value. 

The  lb  index  for  the  desired  lb  value. 

The  quadrat ically  interpolated  value  with  respect 
to  fn  for  the  first  of  two  cb  values  and  the 
first  of  two  lb  values,  where  bt  s  2.76. 

The  quadrat ically  interpolated  value  with  respect 
to  fn  for  the  first  of  two  cb  values  and  the  sec¬ 
ond  of  two  lb  values,  where  bt  =  2.76. 

The  quadratically  interpolated  value  with  respect 
to  fn  for  the  second  of  two  cb  values  and  the 
first  of  two  lb  values,  where  bt  =  2.76. 

The  quadratically  interpolated  value  with  respect 
to  fn  for  the  second  of  two  cb  values  and  the 
second  of  two  lb  values,  where  bt  =  2.76. 

The  fractional  part  of  the  index  used  to  repre¬ 
sent  the  desired  fn  value,  used  as  input  into  the 
quadratic  interpolation  routine. 
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